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INTRODUCTION 


This manual is a comprehensive reference to the PDOS assembly primitives. It 
is intended as a reference guide only, not as an introduction to assembly lan- 
guage programming. Some guidelines are given in this manual, however, for 
68000 assembly programming with PDOS. 

The PDOS assembly primitives are described separately in alphabetic order and 
make up the bulk of this manual. Also included in this manual is a list of calls 
divided by groups and a table of error codes. 

Each assembly primitive description lists the value, the module, the syntax, and 
the registers of that call. It also describes how the call works and gives an ex- 
ample of that call used in an assembly language program. Possible errors, 
references to related calls, and other notes are also given. Examples are enclosed 
in a box and appear in a different typeface from the rest of the text. User input is 
bolded and comments are italicized. Keys are shown as bolded characters; for 
example, Ctrl C indicates that the “C” key is pressed while the “Control” key is 
being held down. Esc indicates the “Escape” key should be pressed. The J sym- 
bol indicates a carriage return and the i symbol indicates a line feed. 

PDOS assembly primitives are assembly language system calls to PDOS. They 
consist of one word A-line instructions (words with the first four bits equal to 
hexadecimal “A”). PDOS calls return results in the 68000 status register as well 
as regular user registers. 

Guidelines For 68000 Assembly Programming 

The following guidelines should prove useful to you in assembly programming 
for the PDOS system: 

Standard 68000 Assembly Language. The PDOS assembler supports the stand- 
ard Motorola 68000 assembly language instruction set as defined in the M68000 
16-132-bit Microprocessor Programmer’ s Reference Manual. This set includes 
register designations, instruction mnemonics, and addressing syntax. For a com- 
plete discussion of the PDOS assembler and its use, refer to the PDOS As- 
sembler, Linker Reference Manual. 

68000 Register Usage. All 68000 registers are available for user programs. 
However, as a convention, the following are recommended register usages: 

A4 = User variables base register 

A5 = SYR AM pointer (initialized by PDOS) 

A6 = TCB pointer (initialized by PDOS) 

A7 = User stack pointer (EUM$-$100). 

The XGML primitive may be used to reinitialize registers A5 and A6. 
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Guidelines for PDOS Assembly Programming 


Position Independent and Re-entrant Coding. PDOS assembly programs 
should be position independent and re-entrant coded. This means that base 
registers and PC relative variables should be used in the place of absolute ad- 
dressing and that the stack or registers should be used for parameter passing. 

For example: 

Use BSRs instead ofJSRs. 


Good Not Good 


| BSR.L SUBRT JSR SUBRT 


Use (PC) instead of absolute. 


LEA. L LAB (PC), AO 

MOVEA.L #LAB, AO 

LAB EQU * 

LAB EQU * 


Set up OFFSET area. 



LEA. L 

VARS (PC) , AO 

CLR.B 

PRT 



CLR.B 

PRT (AO) 

. . . 




. . . 


PRT 

DC .B 

0 

VARS 

EQU 

★ 





OFFSET 

0 




PRT_ 

DS.B 

1 





PDOS Primitives. PDOS assembly primitives are fully supported by the PDOS 
assembler. These calls to PDOS will assemble to A-line instructions. 

XEXT 

XSOP 

The primitives may also be specified as DC.W constants if you are using as- 
sembler other than the PDOS assembler. 


DC.W 

$A00E 

;XEXT 

DC.W 

$A0EC 

; XSOP 


System Variables. The PDOS assembler supplies most system constants you 
are likely to require. These constants are supplied on reference after the “OPT 
PDOS” directive is executed. The following is the standard convention adopted 


for external PDOS symbols: 

xxx$ = TCB index (A6) 
xxx. = SYR AM constant 
xxxx. = SYRAM index (A5) 
.xxx = Global system constant 
m.xxx = Module constant 
m$xxx = Module entry point 
m_xxx = Module index 
xxx_ = User index 


MOVE.B U1P$(A6),D0 
MULU.W #TBZ.,DO 
MOVE1 TICS.(A5),D1 
MOVE.W #.BPS,D7 
MOVE.W #B.PTMSK,SR 
BSR.L K2SPINT 
CLR.W B_TPS(A0) 
ADDA.L AVL_(A4),A0 
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The following illustrates how some of these constants might be used: 

BSET.B #~1 18,1 18/8+EVTB.(A5) Set event 118 

MOVEA.L MAIL.(A5),A0 Point to the MAIL array 

MOVE.L TICS.(A5),D1 Read system tics 

ST.B DFLG.(A5) Set hard partitioned directory 

ST.B TLCK.(A5) Lock current task 

MOVE.B #2J>RT$(A6) Set input port # 

MOVE.B #5,FEC$(A6) Set file expansion count 

ST.B ECF$(A6) Disable console echo 

MOVEA.L BIOS.(A5),AO Read system ID characters 

MOVE.W B_SID(A0),D0 

Assembly Format. PDOS assembly text has the following conventions: 



a. A comment line before any entry address. 

b. 2 spaces preceding a conditional branch. 

c. Semi-colon with space for comment. 


★ 




LABEL 

CMPI.W 

#10 , Dl ; 

LESS THAN 10? 


BLT.S 

LABEL 

Y 


Source file documentation. PDOS source files have the following conventions: 
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Guidelines for PDOS Assembly Programmin 


d. Module identification 

e. Author of program 

f. Who authorizes any changes 

g. Revision history 


*= 

Module Name 1 

FILE 


*= 

Author- 

John Doe 


*= 

Changes Authorized by 



*= 

* 

Revision History 



*= 

DATE R.V DESCRIPTION 


*- 

07/08/87 2.36 D$INT 

called from 

XCTB 

*= 

07/18/87 2.37 XLER enables echo 

ECF$ 

*— 

07/22/87 2.38 Reset event 



h. Program ID 



PDOS assembly primitives are one word A-line instructions which normally use 
the exception vector at memory location $00000028. Most primitives use 68000 
registers to pass parameters to and results from resident PDOS routines. 
Registers for system calls are generally used from DO up and A0 up. Some calls 
(XPMC, XTAB, and XDMP) pass the relative address to the call by placing the 
address word immediately following the call. Status returns are used after the 
call. Some primitives return an error in the status register while other primitives 
return a status depending on the state of the primitive. For example, the XGCB 
(conditional get character) primitive returns one the following conditions in the 
status register: EQ - no character, LO - Ctrl C; LT - Esc; MI - Ctrl C or Esc. 


LOOP 

XGCB 

/CHARACTER? 


BEQ.S NONE 

;N 


BLO.S QUIT 

;Y, A C, DONE 


BLT.S NEXT 

/CONTINUE 


CMP I . B #'0',D0 

/NUMBER 


PDOS primitives return error conditions in the processor status register. This 
facilitates error processing by allowing your program to do long or short 
branches on different error conditions. DO holds the error code and the status is 
either NE for no error code or the error code itself. The following example 
demonstrates trapping an error after a PDOS call: 


CALLX 

LEA.L FILEN (PC) ,A1 

/GET FILE NAME 


XSOP 

/OPEN FILE, ERROR? 


BNE.S ERROR 

;Y 


MOVE . W Dl, SLTN (A4) 

/N, SAVE SLOT # 


w 
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Guidelines for PDOS Assembly Programming 


The following illustrates how some of these constants might be used: 
BSET.B #~1 18,1 18/8+EVTB.(A5) Set event 118 


MOVEAi 

MAIL.(A5),A0 

MOVE.L 

TICS.(A5),D1 

ST.B 

DFLG.(A5) 

ST.B 

TLCK.(A5) 

MOVE.B 

#2J?RT$(A6) 

MOVE.B 

#5,FEC$(A6) 

ST.B 

ECF$(A6) 

MOVEA.L 

BIOS.(A5),A0 

MOVE.W 

B_SID(A0),D0 


Point to the MAIL array 

Read system tics 

Set hard partitioned directory 

Lock current task 

Set input port # 

Set file expansion count 
Disable console echo 
Read system ID characters 


Assembly Format. PDOS assembly text has the following conventions: 

a. A comment line before any entry address. 

b. 2 spaces preceding a conditional branch. 

c. Semi-colon with space for comment. 


* 

LABEL 

CMPI.W 

#10, Dl 

; LESS THAN 10? 


BLT.S 

LABEL 

; Y 


Source file documentation. PDOS source files have the following conventions: 

a. Assembler TTL directive 

b. File name followed by last update date 


TTL FILE - PDOS PROGRAM FILE 

* FILE : SR 07/22/87 
***************************************** 

* * 


* 

FFFFFF 

IIII 

LL 

EEEEEE 

* 

* 

FF 

II 

LL 

EE 

* 

* 

FF 

II 

LL 

EE 

* 

* 

FFFFF 

II 

LL 

EEEEE 

* 

* 

FF 

II 

LL 

EE 

* 

* 

FF 

II 

LL 

EE 

* 

* 

FF 

IIII 

LLLLLL 

EEEEEE 

* 


* * 
*=*************************************** 


c. Company identification with copyright notices 


Eyring Research Institute Inc. 
Copyright 1983-87 
ALL RIGHTS RESERVED 
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Guidelines for PDOS Assembly Programming 


d. Module identification 

e. Author of program 

f. Who authorizes any changes 

g. Revision history 


*= 

Module Name: FILE I 

*= 


Author: John Doe f 

*= 

Changes Authorized by: 

*= 

* 

Revision History: 

*= 

•*_ 

DATE R.V 

DESCRIPTION 

* = 

07/08/87 2.36 

D$INT called from XCTB 

*= 

07/18/87 2.37 

XLER enables echo ECF$ 

*= 

07/22/87 2. 

38 Reset event 


h. Program ID 


FILE IDNT 

*= 

2.38 M68000 PDOS 

*_*************************************** 

PAGE 



PDOS Assembly Language Calls 


PDOS assembly primitives are one word A-line instructions which normally use 
the exception vector at memory location $00000028. Most primitives use 68000 
registers to pass parameters to and results from resident PDOS routines. 
Registers for system calls are generally used from DO up and A0 up. Some calls 
(XPMC, XTAB, and XDMP) pass the relative address to the call by placing the 
address word immediately following the call. Status returns are used after the 
call. Some primitives return an error in the status register while other primitives 
return a status depending on the state of the primitive. For example, the XGCB 
(conditional get character) primitive returns one the following conditions in the 
status register: EQ - no character, LO - Ctrl C; LT - Esc; MI - Ctrl C or Esc. 


LOOP 

XGCB 

/CHARACTER? 


BEQ.S NONE 

;N 


BLO.S QUIT 

;Y, A C, DONE 


BLT . S NEXT 

/CONTINUE 


CMP I .B #'0',D0 

/NUMBER 


PDOS primitives return error conditions in the processor status register. This 
facilitates error processing by allowing your program to do long or short 
branches on different error conditions. DO holds the error code and the status is 
either NE for no error code or the error code itself. The following example 
demonstrates trapping an error after a PDOS call: 


/IT" N 



W 


CALLX 

LEA.L FILEN (PC) , Al 

/GET FILE NAME 


XSOP 

/OPEN FILE, ERROR? 


BNE.S ERROR 

/Y 


MOVE . W Dl, SLTN (A4) 

/N, SAVE SLOT # 


c 


4 
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PDOS Assembly Language Calls 


System Support Calls cont. 

XPAD - Pack ASCII date 
XU AD - Unpack ASCII Date 
XUDT - Unpack date 
XUTM - Unpack time 
XWDT- Write date 
XWTM - Write time 
XGNP - Get next parameter 

File Support Calls 

File support calls augment the file manager. Important functions such as copy- 
ing files, appending files, sizing disks, and resetting disks are included here. 

XFFN - Fix file name 

XLFN - Look for name in file slots 

XLST - List file directory 

XBFL - Build file directory list 

XRDE - Read next directory entry 

XRDN - Read directory entry by name 

XAPF- Append file 

XCPY- Copy file 

XCHF- Chain file 

XLDF- Load file 

XRCN - Reset console inputs 

XRST - Reset disk 

XSZF - Get disk size 

File Management Calls 

The file management calls of PDOS use the file lock (event 120) to prevent con- 
flicts between multiple tasks. Functions such as defining, deleting, reading, writ- 
ing, positioning, and locking are supported by the file manager. 

XDFL - Define file 

XRNF - Rename file 

XRFA - Read file attributes 

XWFA - Write file attributes 

XWFP - Write file parameters 

XDLF- Delete file 

XZFL- Zero file 

XSOP - Open sequential file 

XROO - Open random read only file 

XROP - Open random file 

XNOP - Open shared random file 

XLKF- Lock file 

XULF- Unlock file 

XRFP - Read file position 

XRWF - Rewind file 
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PDOS Assembly Language Calls 


File Management Calls cont. 

XPSF - Position file 
XRBF - Read bytes from file 
XRLF - Read line from file 
XWBF - Write bytes to file 
XWLF - Write line to file 
XFBF - Flush buffers 
XFAC - File altered check 
XCFA - Close file with attribute 
XCLF - Close file 

Disk Access Calls 

Disk access calls use the read/write logical sector routines in the PDOS BIOS. A 
disk lock (event 121) is used to make these calls autonomous and prevent multi- 
ple commands from being sent to the disk controller. 

XISE - Initialize sector 
XRSE - Read sector 
XWSE - Write sector 
XRSZ - Read sector zero 



/f^\ 

vy 


/#~\ 

Wy 
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PDOS Errors 


50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 
87 
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Bad File Name 
Hie Already Defined 
File Not Open 
File Not Defined 
Bad File Attribute 
Too Few Contiguous 
End of File 
File Directory Full 
File Writ/Del Prot 
Bad File Slot 
File Space Full 
File Already Open 
Bad Message Ptr Call 
Bad Object Tag 

Not Executable 
Bad Port/Baud Rate 
Bad Parameter 
Not PDOS Disk 
Out of File Slots 
Position > EOF 
AC File Nesting > 2 
Too Many Tasks 
Not Enough Memory 
Non-existent Task 
File Locked 

Not Memory Resident 
Msg Buffer Full 
Bad Memory Address 
Bad Driver Call 


Delay Queue Full 

Task Abort 
Suspend on PortO 
Exception 
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PPOS Assembly Primitives Reference 


The following section describes each assembly call in alphabetical order. The 
description includes its syntax, the PDOS module in which it is found, possible 
errors, and an example demonstrating how the call may be used. 
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X881 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


Save 68881 Enable 


$A006 

MPDOSK1 

X881 

None 

The SAVE 68881 ENABLE sets the BIOS save flag (SVF$(A6)) thus signaling 
the PDOS BIOS to save and restore 68881 registers and status during context 
switches. The save flag is again cleared by exiting to the PDOS monitor. 

BIOS in PDOS Developer’ s Reference Manual 

None 


START 

X881 


FMOVE.L #100, FPO 


FDIV.W #3, FPO 
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XAPF 

Append File 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

Possible 

Errors: 


Example: 


$A0AA 

MPDOSF 

XAPF 

<status error retum> 

In (Al) = Source file name 

(A2) = Destination file name 

A Ctrl C will terminate this primitive and return error -1 in data register DO. 

The APPEND FILE primitive is used to append two files together. The source 
and destination file names are pointed to by address registers Al and A2, respec- 
tively. The source file is appended to the end of the destination file. The source 
file is not altered. 


-1 = Break 

50 = Bad File Name 

53 = File Not Defined 

60 = File Space Full 

61 = File Already Open 

68 = Not PDOS Disk 

69 = Out of File Slots 
Disk errors 


(■: ) 


/1T\ 


APFL 

LEA. L 

SFHPC) ,A1 

/SOURCE FILE 

NAME 


LEA. L 

SF2 (PC) , A2 

/DESTINATION 

FILE NAME 


XAPF 


/APPEND 



BNE.S 

ERROR 

/ERROR 



— 


/SUCCESS 


SF1 

DC .B 

'FILE1',0 



SF2 

DC . B 
EVEN 

' FILE2' , 0 
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XBCP 


Baud Console Port 


Value: 

Module: 

Syntax: 


$A070 

MPDOSK2 

XBCP 

<status error retum> 


Registers: 


Description: 


In D2.W = FWPI 8DCS / <port #> 

D3.W = Baud rate 
D4.W = Port type 
D5.L = Port base 


The BAUD CONSOLE PORT primitive initializes any one of the PDOS I/O 
ports and binds a physical UART to a character buffer. The primitive sets hand- 
shaking protocol, receiver and transmitter baud rates, and enables receiver inter- 
rupts. 


r 




F8BT. 


FWPI 8DCS 

\\\\ WW_ 0 = Ctrl S Ctrl Q enable 

\\\\ \\\ 1 = Ignore control character 

\\\\ \\_ 2 = DTR enable 
\\\\ \_ 3 = 8-bit character enable 

\\\\ 4 = Receiver interrupts disable 

\\\ 5 = Even parity enable 

\\ 6 = *Re served 

\ 1 - **Reserved 


*Used to clear all bits \ 


Data register D2 selects the port number and sets (or clears) the corresponding 
flag bits. If D2.W is negative, then the absolute value is subsequently used and 
the port number is stored in U2P$(A6). The right byte of data register D2 (bits 0- 
7) selects the console port The left byte of D2.W (bits 8-15) selects various flag 
options including Ctrl S Ctrl Q and/or DTR handshaking, receiver parity and in- 
terrupt disable, and 8-bit character I/O. 

The receiver and transmitter baud rates are initialized to the same value accord- 
ing to register D3. Register D3 ranges from 0 to 8 or the corresponding baud 
rates of 19200, 9600, 4800, 2400, 1200, 600, 300, 1 10, 38400. If register D3 is 
equal to -1, then only port 2 is set. If data register D4 is non-zero, then it selects 
the port type and register D5 selects the port base address. These parameters are 
system-defined and correspond to the UART module. If register D4 is zero, 
there is no change. 
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XBCP - Baud Console Port 


See Also: 

Possible 

Errors: 

Example: 


D3.W = Baud = 0=19200 baud 

1 = 9600 baud 

2 = 4800 baud 

3 = 2400 baud 

4 = 1200 baud 

5 = 600 baud 

6 = 300 baud 

7 = 110 baud 

8 = 38400 baud 

Baud rate 38400 is not supported by all BIOSes. 

XRPS - Read Port Status 
XSPF- Set Port Flag 

66 = Bad Port/Baud Rate 


START 

MOVE . W 

#$103, D2 

;PORT 3 W/ A S A Q 


MOVE . W 

#19200, D3 

; 1 9 . 2K BAUD 


MOVEQ.L 

#0, D4 

;NO TYPE CHANGE 


XBCP 


; BAUD PORT 


BNE.S 

ERROR 
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XBFL 

Build File Directory List 


Value: 

Module: 

Syntax: 

Registers: 


Description: 


Possible 

Errors: 


$A0B8 

MPDOSM 

XBFL 

<status error retum> 

In (Al) = List specifications 

(A2) = Beginning buffer address 
(A3) = End buffer address 
Out (A3) = Updated buffer end address 

The BUILD FILE DIRECTORY LIST primitive builds a serial list of file names 
in memory as selected by the list specifications. Address register Al points to 
the file list specifications. 

List specifications: 


^<file list> = {file} { :ext} { /level} { /diskH /select ... } N 

where {file} = 1 to 8 characters (1st alpha) (0=all, *=wild) 
{:ext} = 1 to 3 characters ( : @=all, *=wild) 

{/level} = directory level (;@=all) 

{/disk} = disk number ranging from 0 to 255 
{/select} = PDOS type (/AC, /BN, /BX, /EX, /OB, /SY, /TX, /DR) 

PDOS attribute (/*,/**) 

Change date (/Fdy-mon-yr, /Tdy-mon-yr) 
t or (/Fmn/dy/yr, /Tmn/dy/yr) j 


Address registers A2 and A3 point to the beginning and end of the memory buff- 
er respectively. Register A3 is updated to a word boundary just after the last file 
name null. 

Disk errors 

67 = Bad Parameter 

73 = Not Enough Memory 
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XBFL - Build File Directory List 


Example: 


GETL 

LEA. L 

SPC (PC) , A1 

/POINT TO LIST 


LEA. L 

BUF (PC) ,A2 

/GET BUFFER ADDRESS 


LEA. L 

EBUF (PC) , A3 

/GET END POINTER 


XBFL 


/BUILD LIST 

* 

BNE.S 

ERROR 


PRNT 

TST.B 

(Al) 

/ENTRY? 


BEQ.S 

DONE 

;N 


XPCL 


/Y, OUTPUT CRLF 


XPLC 


/OUTPUT ENTRY 

* 




NEXT 

TST.B 

(Al) + 

/NEXT, DONE? 


BNE.S 

NEXT 

;N 

* 

BRA. S 

PRNT 

/Y 

DONE 

* 

— 



ERROR 

— 



SPC 

DC . B 

' § : SR; @/0' , 

0 

BUF 

DS.B 

500 


EBUF 

EQU 

* 
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XBUG 

Debug Call 


Value: 


$A038 


Module: 


MPDOSD 


Syntax: 

Registers: 

Description: 


See Also: 


Possible 

Errors: 


XBUG 


None 


The DEBUG CALL primitive breaks from the user program and enters the 
PDOS debugger. All registers are saved and you are prompted for additional 
commands. The following are legal debugger commands for the resident debug- 
ger: 


^AO-7 
B{ #, a} 
DO-7 


<#}G 

H 

M 

N# 

O 

P 

Q 

R 

S 

T 

U 

V 


W{ s, e} 




A-reg 

Lst/def break 
D-reg 

Go & break 
Help message 
Last dump 

0=Wrd, l=Byt, 4=Long 
5=Byt skp,+2=w/o read 
Offset 
PC 

Exit 

Reg dump 
Status 
Trace 
Unit 

Control IAC 
Window 

Set breaks & exit 
Reset 


LF 

# 

#,# 

#,# + 

#,#,#{ WL } 

#(0-7) 

+# 


Trace option?; 

F/R/M 

G 

T 


Disassemble 
Open previous 
Open next 
Mem IAC 
Mem dump 
Disassemble 
Find B/W/L 

d (Ax) 

# + offset 


Dump 

Go 

Running 

J 


If you use the SMARTBUG debugger, refer to SMARTBUG Reference Manual 
for valid commands. 


XDMP - Dump Memory From Stack 
XRDM - Dump Registers 

PB - PDOS Debugger ( PDOS Monitor, Editor, Utilities manual) 
SMARTBUG Reference Manual 


None 
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XCBC 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 


Check For Break Character 


$A072 

MPDOSK2 

XCBC 

<status retum> 

Out SR= EQ....N 0 break 

LO....Ctrl C, Clear flag & buffer 
LT....Esc, Clear flag 
MI....Ctrl C or Esc 

If the ignore control character bit ($02) of the port flag is set, then XCBC al- 
ways returns EQ. status. 

The CHECK FOR BREAK CHARACTER primitive checks the current user 
input port break flag (BRKF.(A5)) to see if a break character has been entered. 
The PDOS break characters are Ctrl C and the Esc key. A Ctrl C sets the port 
break flag to one, while an Esc character sets the flag to a minus one. The 
XCBC primitive samples and clears this flag. The condition of the break flag is 
returned in the status register. An “LO” condition indicates a Ctrl C has been 
entered. The break flag and the input buffer are cleared. All subsequent charac- 
ters entered after the Ctrl C and before the XCBC call are dropped. All open 
procedure files are closed and any system frames are restored. Also, the last 
error number flag (LEN$) is set to -1 and a ‘ ,A C” is output to the port. 

An “LT” condition indicates an Esc character has been entered. Only the break 
flag is cleared and not the input buffer. Thus, the Esc character remains in the 
buffer. The Ctrl C character is interpreted as a hard break and is used to ter- 
minate command operations. The Esc character is a soft break and remains in 
the input buffer, even though the break flag is cleared by the XCBC primitive. 
(This allows an editor to use the Esc key for special functions or command ter- 
mination.) 

None 
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XCBD 

Convert Binary to Decimal 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A050 

MPDOSK3 

XCBD 

In D1.L = Number 

Out (Al) = String 

The CONVERT BINARY TO DECIMAL primitive converts a 32-bit, 2’s com- 
plement number to a character string. The number to be converted is passed to 
XCBD in data register Dl. Address register Al is returned with a pointer to the 
converted character string located in the monitor work buffer (MWB$). Leading 
zeros are suppressed and a negative sign is the first character for negative num- 
bers. The string is delimited by a null. The string has a maximum length of 1 1 
characters and ranges from -2147483648 to 2147483647. 

XCBX - Convert To Decimal In Buffer 

None 



MOVE . L #1234, Dl 

;GET NUMBER 


XCBD 

/CONVERT TO PRINT 


XPLC 

/PRINT 

****************************************** 

* OUTPUT LEFT JUSTIFIED 

NUMBER 

* 

DO.W = # OF PLACES 

* 

* 

Dl.L = NUMBER 


LEFT 

MOVEM.L D0/A0-A1 

,-(A7) 


XCBD 

/CONVERT 

* 

MOVE A . L Al, AO 

/GET POINTER 

LEFT 02 

SUBQ.W #1, DO 

/COUNT LENGTH 


TST.B (AO) + 

/END? 

* 

BNE.S LEFT 02 

/N 

LEFT04 

XPSP 

/OUTPUT SPACE 


SUBQ.W #1, DO 

/DONE? 


BPL.S LEFT04 

/N 


XPLC 

/Y, OUTPUT # 


MOVEM.L (A7) +, D0/A0-A1 


RTS 

1 
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c 

c 



f 

( 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

( 

See Also: 

Possible 

Errors: 

Example: 

( 


< 


C 

C 


XCBH 

Convert Binary to Hex 


$A052 

MPDOSK3 

XCBH 

In D1.L = Number 

Out (Al) = String 

The CONVERT BINARY TO HEX primitive converts a 32-bit number to its 
hexadecimal (base 16) representation. The number is passed in data register D1 
and a pointer to the ASCII string is returned in address register Al . The con- 
verted string is found in the monitor work buffer (MWB$) of the task control 
block and consists of eight hexadecimal characters followed by a null. 

XCHX - Convert Binary To Hex In Buffer 

None 



MOVEQ.L 

#123, D1 

;GET NUMBER 


XCBH 


;GET HEX CONVERSION 


MOVEQ . L 

# ' , DO 

;ADD HEX SIGN 


XPCC 


/PRINT 


XPLC 


/PRINT 8 HEX CHARACTERS 

****************** **************************** 

* 

* 

DUMP REGISTERS ON USER STACK 

* 

USP = A7 = RETURN PC 

* 


D0-D7 


* 


A0-A7 


DMRG 

MOVEA.L 

(A7)+,A0 

/GET RETURN ADR 


MOVE . L 

#$0007BCF7,D4 1 


MOVE. W 

#' 0D' , DO 


DMRG02 

XPCL 


/OUT CRLF 


XPCC 


/OUT LINE TYPE 


MOVE . W 

#' :',D0 


DMRG 04 

XPCC 


/OUT DELIMITER 


MOVE . L 

(A7)+,D1 

/GET REGISTER 


XCBH 


/CONVERT 


XPLC 


/OUTPUT 


MOVEQ.L 

#' ' , DO 

/CHANGE TO r ' 


LSR.L 

#1,D4 

/ 4 DONE? 


BCS.S 

DMRG 04 

;N 


XPCC 


/Y, OUT SPACE 


LSR.L 

#1,D4 

/CRLF? 


BCS.S 

DMRG 04 

/N 


MOVE . W 

#' 0A f , DO 

/Y, CHANGE TO 'A' 


LSR.L 

#1,D4 

/MORE? 


BCS.S 

DMRG 02 

;Y 


JMP 

(A0) 

;N, RETURN 
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XCBM 

Convert to Decimal with Message 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


$A054 

MPDOSK3 

XCBM <message> 

In D1.L = Number 

Out (Al) = String 

The CONVERT TO DECIMAL WITH MESSAGE primitive converts a 32-bit, 
signed number to a character string. The output string is preceded by the string 
whose PC relative address is in the operand field of the call. The string can be 
up to 20 characters in length and is terminated by a null character. The number 
to be converted is passed to XCBM in data register D1 . Address register Al is 
returned with a pointer to the converted character string which is located in the 
monitor work buffer (MWB$) of the task control block. Leading zeros are sup- 
pressed and the result ranges from -2147483648 to 2147483647. The message 
address is a signed 16-bit PC relative address. 

None 


START MOVE . L 

* 

#$80000004, D1 

LOOP XPMC 

ME Si /HEADING 

XCBH 

/CONVERT HEX 

XPLC! 

1 XCBM 

MES2 /CONVERT DECIMAL 

1 XPLC 

SUBQ.L 

#1, Dl 

CMPI.L 

# $ 7FFFFFFC , Dl 

BHS.S 

LOOP 

XEXT 

MES1 DC .B 

$0A, $0D , 9 Hex $',0 

MES2 DC . B 

' = ',0 

EVEN 

1 END 

START 

x>TEST | 

Hex $80000004 = 

-2147483644 

Hex $80000003 = 

-2147483645 

Hex $80000002 = 

-2147483646 

Hex $80000001 = 

-2147483647 

Hex $80000000 = 

-2147483648 

Hex $7FFFFFFF = 

2147483647 

Hex $7FFFFFFE - 

2147483646 

Hex $7FFFFFFD = 

2147483645 

Hex $7FFFFFFC = 

2147483644 

1 E 
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XCBP 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


Check for Break or Pause 


$A074 

MPDOSK2 

XCBP 

<status retum> 

Out SR= EQ...N 0 character 
LT...Esc 
LO...Ctrl C 
NE...Pause 

If a “BLT” instruction does not immediately follow the XCBP call, then the 
primitive exits to PDOS when an Esc character is entered. 

If the ignore control character bit ($02) of the port flag is set, then XCBP always 
returns .EQ. status. 

The CHECK FOR BREAK OR PAUSE primitive looks for a character from 
your PRT$(A6) port Any non-control character will cause XCBP to output a 
pause message and wait for another character. The pause message consists of: 

J’Strike any key...’ J 

A Ctrl C will abort any assigned console file and return the status “LO”. If a 
“BLT’ instruction follows the XCBP primitive and an Esc character is entered, 
then the call returns with status “LT”. Otherwise, an Esc will abort your 
program to the PDOS monitor. An “EQ” status indicates that no character was 
entered. An “NE” status indicates a pause has occurred. 

None 


LOOP 

— 

/OUTPUT 


XCBP 

/LOOK FOR PAUSE 


BLT. S EXIT 

/ESC 

* 

BRA. S LOOP 

/CONTINUE 

EXIT 

— 

/ESC 
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XCBX 

Convert to Decimal in Buffer 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A06A 

MPDOSK3 

XCBX 

In D1.L = Number 

(Al) = Buffer 

The CONVERT TO DECIMAL IN BUFFER primitive converts a 32-bit, 2’s 
complement number to a character string. The number to be converted is passed 
to XCBX in data register Dl. Address register Al points to the buffer where the 
converted string is stored. Leading zeros are suppressed and a negative sign is 
the first character for negative numbers. The string is delimited by a null. The 
string has a maximum length of 1 1 characters and ranges from -2147483648 to 
2147483647. 

XCBD - Convert Binary To Decimal 
None 


/f~~\ 

l : 



MOVEA.L 

A6, Al 

/POINT TO USER BUF 



MOVEQ.L 

#12, Dl 

/GET # 



BSR.S 

OUTS 

/OUTPUT TO BUFFER 

- 


XPBC 


/OUTPUT BUFFER 


OUTS 

* 

XCBX 


/CONVERT # 


OUTS02 

TST.B 

(Al) + 

/END? 



BNE.S 

OUTS02 

/N 



SUBQ.W 

#1,A1 

/Y, BACKUP 



RTS 


/RETURN 




c 

f 
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XCDB 

Convert ASCII to Binary 


Value: 

Module: 

Syntax: 

Registers: 

Kir* 

Description: 


Possible 

Errors: 

Example: 


$A056 

MPDOSK3 

XCDB 

<status retum> 

In (Al)= String 

Out D0.B = Delimiter 

Dl.L = Number 
(Al) = Updated string 
SR = LT....N 0 number 

EQ..„# w/o null delimiter 
GT....# 

XCDB does not check for overflow. 

The CONVERT ASCII TO BINARY primitive converts an ASCII string of 
characters to a 32-bit, 2’s complement number. The result is returned in data 
register D1 while the status register reflects the conversion results. XCDB con- 
verts signed decimal, hexadecimal, or binary numbers. Hexadecimal numbers 
are preceded by “$” and binary numbers by A indicates a negative 
number. There can be no embedded blanks. An “LT” status indicates that no 
conversion was possible. Data register DO is returned with the first character and 
address register Al points immediately after it A “GT’ status indicates that a 
conversion was made with a null delimiter encountered. The result is returned in 
data register Dl. Address register Al is returned with an updated pointer and 
register DO is set to zero. An “EQ” status indicates that a conversion was made 
but the ASCII string was not terminated with a null character. The result is 
returned in register Dl and the non-numeric, non-null character is returned in 
register DO. Address register Al has the address of the next character. 

None 


START 

MOVEQ.L 

#0,D5 ;GET DEFAULT 


XPMC 

MESl /OUTPUT PROMPT 


XGLU 

;GET REPLY 


BLS.S 

STRT04 ;USE DEFAULT 


XCDB 

; CONVERT , OK? 


BGT.S 

STRT02 ; Y 


XPMC 

ERMl ;N, REPORT 

* 

BRA. S 

START ;TRY AGAIN 

STRT02 

MOVE . L 

D1,D5 /SAVE VALUE 

STRT04 



MESl 

DC . B 

$0A, $0D, ' ANSWER=' , 0 

ERMl 

DC.B 

EVEN 

$0A, $0D, ' INVALID ! ' , 0 
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XCFA 

Close File with Attribute 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


KIT 

See Also: 

Possible 

Errors: 


$A0D0 

MPDOSF 

XCFA 

<status error retum> 

In Dl.W = File ID 

D2.B = New attribute 

The CLOSE FILE WITH ATTRIBUTES primitive closes the open file specified 
by data register Dl. At the same time, the file attributes are updated according to 
the byte contents of data register D2. 

D2.B = $80 AC or Procedure file 
= $40 BN or Binary file 
= $20 OB or 68000 object file 
= $10 SY or 68000 memory image 
= $08 BX or BASIC binary token file 
= $04 EX or BASIC ASCII file 
= $02 TX or Text file 
= $01 DR or System I/O driver 
= $00 Clear file attributes 

If the file was opened for sequential access and the file has been updated, then 
the END-OF-FILE marker is set at the current file pointer. If the file was opened 
for random or shared access, then the END-OF-FILE marker is updated only if 
the file has been extended (data was written after the current END-OF-FILE 
marker). The LAST UPDATE is updated to the current date and time only if the 
file has been altered. All files must be closed when opened! Otherwise, direc- 
tory information and possibly even the file itself will be lost. 

If the file is not altered, then XCFA will not alter the file attributes. 

Dl.W = File ID = (Disk #) x 256 + (File slot index) 

XRFA - Read File Attributes 
XWFA - Write File Attributes 
XWFP - Write File Parameters 

52 = File Not Open 
59 = Bad File Slot 
75 = File Locked 
Disk mors 
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XCFA - Close File with Attribute 




XCHF 

Chain File 

Value: 

Module: 

Syntax: 

Registers: 

Ksf 3 

Description: 


See Also: 

Possible 

Errors: 


Example: 


$A0AC 

MPDOSM 

XCHF 

In Ally = File name 
The primitive returns only on error. 

The CHAIN FILE primitive is used by the PDOS monitor to execute program 
files. The primitive chains from one program to another according to the file 
type. Address register A1 points to the chain file name. The file type determines 
how the file is to be executed. 

If the file is typed “OB” or “S Y”, then the 68000 loader is called (XLDF). If the 
file is typed “BX” or “EX”, then the PDOS BASIC interpreter loads the file and 
begins executing at the lowest line number. Likewise, if the file is typed “AC”, 
then control returns back to the PDOS monitor and further requests for console 
characters reference the file. 

The XCHF call returns only if an error occurs during the chain operation. All 
other errors, such as those occurring in BASIC, return to the PDOS monitor. 
Parameters may be passed from one program to another through the user TEMP 
variables located in the task control block or through the system messages buf- 
fers. 

XEXZ - Exit To Monitor With Command 

50 = Bad File Name 
53 = File Not Defined 
60 = File Space Full 
63 = Bad Object Tag 
65 = Not Executable 
77 = Not Memory Resident 
Disk errors 


o 

(y 


/On 

w 




LEA.L 

FILEN (PC), A1 ;GET FILE NAME 


XCHF 

/CHAIN FILE 

* 

XERR 

/PROBLEM 

FILEN 

DC . B 
EVEN 

' NEXTPRGM' , 0 
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c 



XCHX 

Convert Binary to Hex in Buffer 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 


$A068 

MPDOSK3 

XCHX 

In Dli = Number 

(Al) = Output buffer 

The CONVERT BINARY TO HEX IN BUFFER primitive converts a 32-bit 
number to its hexadecimal (base 16) representation. The number is passed in 
data register D1 and a pointer to a buffer in address register Al. The converted 
string consists of eight hexadecimal characters followed by a null. 

XCBH - Convert Binary To Hex 

None 
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XCHX - Convert Binary to Hex in Buffer 


Example: 


START MOVE . L 

* 

#$80000004, D1 


LOOP 

MOVEA.L 

A6,A1 

;USER BUFFER 


BSR.S 

OUTS 

;OUT HEADING 


DC . W 

MES1-* 


* 

XCHX 


; CONVERT HEX 

LOOP 2 

TST.B 

<A1> + 

; END ? 


BNE.S 

LOOP 2 

;N 


SUBQ.W 

#1,A1 

;Y 


BSR.S 

OUTS 

. t — r 

t — 


DC . W 

MES2-* 



XCBX 


; CONVERT DECIMAL 

LOOP 4 

TST.B 

(Al) + 

; END ? 


BNE.S 

LOOP 4 

;N 


XPBC 

SUBQ.L 

#1, Dl 

; Y, OUTPUT 


CMPI.L 

#$7FFFFFFC, Dl 


BHS.S 

LOOP 



XEXT 



OUTS 

MOVEA.L 

(A7) , A0 

;GET ADDRESS 


ADDQ.L 

#2, (A7) 

/ADJUST PC 

* 

ADDA. W 

(A0) + , A0 

OUTS2 

MOVE . B 

(A0) +, (Al) + 


BNE.S 

OUTS2 



SUBQ.W 

#1, A1 


* 

RTS 



MESl 

DC . B 

$0A,$0D, 

'Hex $',0 

MES2 

DC . B 

' = ' t o 



EVEN 

END 

START 


x>TEST 




Hex $80000004 = 

-2147483644 

Hex $80000003 = 

-2147483645 

Hex $80000002 = 

-2147483646 

Hex $80000001 = 

-2147483647 

Hex $80000000 = 

-2147483648 

Hex $7FFFFFFF = 

2147483647 

Hex $7FFFFFFE = 

2147483646 

Hex $7FFFFFFD = 

2147483645 

Hex $7FFFFFFC = 

2147483644 

1 








/O', 
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XCLF 

Close File 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


$A0D2 

MPDOSF 

XCLF 

<status enor retum> 

In Dl.W = FileID 

The CLOSE FILE primitive closes the open file as specified by the file ID in 
data register Dl. If the file was opened for sequential access and the file was up- 
dated, then the END-OF-FILE marker is set at the current file pointer. 

File ID = (Disk #) x 256 + (File slot index) 

If the file was opened for random or shared access, then the END-OF-FILE 
marker is updated only if the file was extended (ie. data was written after the cur- 
rent END-OF-FILE marker). If the file has been altered, the current date and 
time is stored in the LAST UPDATE variable of the file directory. All open files 
must be closed at or before the completion of a task (or before disks are 
removed from the system)! Otherwise, directory information is lost and possib- 
ly even the file itself. 

52 = File Not Open 
59 = Bad File Slot 
75 = File Locked 
Disk errors 



MOVE . W 
XCLF 
BNE.S 

D5, Dl 
ERROR 

;GET FILE ID 
; CLOSE FILE 

ERROR 

CLR.L 

Dl 



MOVE . W 

DO, Dl 

;GET ERROR # 


XCBM 

XPLC 

ERMl 

; CONVERT 
/OUTPUT 

ERM1 

DC . B 

$0A, $0D 



DC.B 

EVEN 

9 PDOS CLOSE ERR ',0 
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XCLS 

Clear Screen 


Value: 

Module: 

Syntax: 

Registers: 

US’ 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A076 

MPDOSK2 

XCLS 

None 

The clear screen characters are located in the user TCB variable CSC$(A6). 

The CLEAR SCREEN primitive clears the console screen, homes the cursor, 
and clears the column counter. This function is adapted to the type of console 
terminals used in the PDOS system. The character sequence to clear the screen 
is located in the task control block variable CSC$(A6). These characters are 
transferred from the parent task to the spawned task during creation. The initial 
characters come from the BIOS module. 


CSC$(A6) = Elll 1111 E222 2222 
\\ \ \\ \ 


w \ w 

2nd 

character 

\\ \ \ 

2nd 

Esc 

\\ \ 
\\ \ 



w 

1st 

character 

\ 

1st 

Esc 


V zzz^ J 

If CSC$ is nonzero, then the CLEAR SCREEN primitive outputs up to four 
characters: one or two characters; an Esc followed by a character; or an Esc, 
character. Esc, and a final character. The one-word format allows for two charac- 
ters. The parity bits cause the Esc character to precede each character. 

If CSC$ is zero ex if the first byte equals $FF, then PDOS makes a call into the 
BIOS for custom clear screens. The entry point is B_CLS beyond the BIOS 
table. The MTERM utility normally maintains the CSC$ field, although it can 
be altered under program control. The initial definition of CSC$ is found in the 
MBIOS:SR file and can be modified by doing a new SYSGEN. 

XRCP - Read Port Cursor Position 

BIOS in PDOS Developer’s Reference Manual 

None 




,/f~\ 



XCLS 


/CLEAR SCREEN 

XPMC 

MES01 

/OUTPUT MESSAGE 

— 




C 

C 
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XCPY 

Copy File 


Value: 

Module: 

Syntax: 

Registers: 

d 3 

Description: 

Possible 

Errors: 


Example: 


$A0AE 

MPDOSF 

XCPY 

<status error retum> 

In (Al) = Source file name 

(A2) = Destination file name 

A Ctrl C terminates this primitive and returns the error - 1 in register DO. 

The COPY FILE primitive copies the source file into the destination file. The 
source file is pointed to by address register Al and the destination file is pointed 
to by register A2. A Ctrl C halts die copy, prints ,,A C” to the console, and 
returns with error -1. The file attributes of the source file are automatically trans- 
ferred to the destination file. 

-1 = Break File Transfer 
50 = Bad File Name 
53 = File Not Defined 

60 = File Space Full 

61 = File Already Open 

68 = Not PDOS Disk 

69 = Out of File Slots 
Disk errors 



LEA. L 

FILES (PC) ,A1 

; SOURCE FILE NAME 


LEA. L 

FILED (PC) ,A2 

; DEST . FILE NAME 


XCPY 


; COPY FILE 


BNE 

S ERROR 

; PROBLEM 


— 


/CONTINUE 

FILES 

DC .B 

' TEMP ' , 0 


FILED 

DC .B 
EVEN 

' TEMP :BK/l f , 

0 
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XCTB 

Create Task Block 

Value: 

Module: 

Syntax: 

Registers: 


Description: 


Example: 



$A026 

MPDOSK1 

XCTB 

<status error retum> 

In DO.W = Task size (lk byte increments) 

Dl.W = Task time.B/priority.B 
D2.W = I/O port 

(AO) = Optional low memory pointer 
(Al) = Optional high memory pointer 
(A2) = Command line pointer or entry address 
Out DO.L = Spawned task number 

If DO.W is positive, AO and Al are undefined. If DO.W equals zero, then AO and 
Al are the new task’s memory bounds and A2 contains the task’s entry address. 

If DO.W is negative, then AO and Al are the new task’s memory bounds and A2 
points to the task’s command line. 

The CREATE TASK primitive places a new task entry in the PDOS task list. 
Memory for the new task comes from either the parent task or the system 
memory bit map. Data register DO controls the creation mode of the new task as 
well as the task size. If register DO.W is positive, then the first available con- 
tiguous memory block equal to DO.W (in IK bytes) is allocated to the new task. 
If there is not a block big enough, then the upper memory of the parent task is al- 
located to the new task. The parent task’s memory is then reduced by DO.W x 
IK bytes. Address register A2 points to the new task command line. If A2 is 
zero, then the monitor is invoked. 


If D0>0 then: D0=Task 

size 

(A2)=Task 

command line 

(0=Monitor) 1 

MOVEQ.L #10,00 

; 10 K BYTES 

MOVEQ.L #64, D1 

/PRIORITY 64 

MOVEQ.L #1,D2 

/PORT 1 

SUBA.L A2,A2 

/CALL MONITOR 

XCTB 

/CREATE TASK 

BNE.S ERROR 



/O"-. 


V.. 




If register DO.W is zero, then registers AO and Al specify the new task’s 
memory limits. Register A2 specifies the task’s starting PC. The task control 
block begins at (AO) and is immediately followed by an XEXT primitive. The 
task user stack pointer is set at (Al). Thus, the new program should allow $502 
bytes at the low end and enough user stack space at the upper end. 
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XCTB - Create Task Block 


Example: 


Example: 


1 If D0=0 then: (A2)=Task 

entry address 1 

AO- 

-Al=New task memory limits 1 

MOVEQ.L 

o 

Q 

o 

=#= 

;USE A0-A1 BOUNDS 

MOVEQ.L 

#64, D1 

/PRIORITY 64 

MOVEQ.L 

#1,D2 

/PORT 1 

LEA. L 

SRAM, AO 

/ TCB ADDR (START) 

LEA. L 

ERAM, Al 


LEA. L 

P (PC) ,A2 

/PC 

XCTB 


/CREATE TASK 

BNE.S 

ERROR 



If data register DO.W is negative, then registers AO and A I specify the new 
task’s memory limits. Register A2 points to the new task command line. (If 
A2=0, then the monitor is invoked.) The command line is transferred to the 
spawned program via a system message buffer. The maximum length of a com- 
mand line is 64 characters. When the task is scheduled for the first time, the mes- 
sage buffers are searched for a command. Messages with a source task equal to 
$FF are considered commands and moved to the task’s monitor buffer. The task 
CLI then processes the line. If no command message is found, then the monitor 
is called directly. 


If 

D0=<0 then: 

(A2)=Task 

command line 



(0=Monitor) 1 


A0-Al=New task memory limits 1 


MOVEQ.L 

#0, DO 

/USE A0-A1 BOUNDS 


MOVEQ . L 

#64, D1 

/PRIORITY 64 


MOVEQ.L 

#1,D2 

/PORT 1 


LEA. L 

SRAM, AO 

/TCB ADDR (START) 


LEA. L 

ERAM, Al 



LEA. L 

C(PC) ,A2 

/PC 


XCTB 


/CREATE TASK 


BNE.S 

ERROR 


C 

DC . B 

' PRGMl ' , 0 


Data register Dl.W specifies the new task’s priority. The range is from 1 to 255. 
The larger the number, the higher the priority. 

Dl=Task priority 

Data register D2.W specifies the I/O port to be used by the new task. If register 
D2.W is positive, then the port is available for both input and output. If register 
D2.W is negative, then the port is used only for output. If register D2.W is zero, 
then no port is assigned. Only one task may be assigned to any one input port 
while many tasks may be assigned to an output port. Hence, a port is allocated 
for input only if it is available. An invalid port assignment does not result in an 
error. A call is made to D$INT in the debugger module. This initializes all ad- 
dresses, registers, breaks, and offsets. Finally, the spawned task’s number is 
returned in register D0.L to the parent task. This can be used later to test task 
status or to kill the task. 
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XCTB - Create Task Block 




Possible 

Errors: 


D2=I/0 port 

If D2=0, then phantom port (no I/O) 

If D2>0, then port is used for I/O 

If D2<0, then port is used for output only 

If you specify the address as a file parameter, the system does not check to see if 
the memory is already allocated to another task. Use caution or it may crash 
your system. 

72 = Too Many Tasks 

73 = Not Enough Memory 
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XDEV 

Delay Set/Clear Event 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A032 

MPDOSK1 

XDEV 

<status error retum> 

In DO.L = Time 

D1.B = Logical Event (+=Set(l), -=Clear(0)) 

If D0.L=0, then the Dl.B event is removed from the delay list. 

The DELAY SET/CLEAR EVENT primitive places a logical timed event in a 
system delay list controlled by the system clock. Data register DOl specifies the 
time interval in clock tics. When it counts to zero, then the event Dl.B is set if 
positive, or cleared if negative. If the event already exists in the delay list, it is 
replaced by the new entry. If the time specified in DO equals zero, then the event 
equal to Dl.B is removed from the delay list If D1.B is positive, event Dl.B is 
first cleared. If Dl.B is negative, event D1.B is set before placing the event in 
the delay list and exiting the primitive. 

XSEF - Set Event Flag With Swap 
XSEV - Set Event Flag 
XSUI - Suspend Until Interrupt 
XTEF - Test Event Flag 
XDPE - Delay on Physical Event 

83 = Delay Queue Full 


GETC XGCC 

; CHARACTER? 

BNE.S GETC2 

;Y 

MOVEQ.L #100, DO 

;N, GET DELAY 

MOVE . L #128, D1 

; USER LOCAL EVENT 

XDEV 

/DELAY 128 1 SECOND 

BNE.S GETC 

/FULL 

LSL.W #8,D1 

/GET 128/ (PORT+96) 

MOVE . B #96, D1 


ADD . B PRT$(A6),D1 


XSUI 

/SUSPEND 

CMP.B DO , Dl 

/CHARACTER EVENT? 

BEQ.S GETC 

/Y 

XRTM 

/N, READ TIME 

MOVE . B 7 (Al) , DO 

/GET LAST CHARACTER 

CMP.B T (A6) , DO 

/SAME TIME? 

BEQ.S GETC 

/Y, TRY AGAIN 

MOVE . L (A1)+,T(A6) 

/N, SAVE NEW TIME 

MOVE . L (Al) , T+4 (A6) 


CLR.B T+8 (A6) 


BSR.S POSIT 

/POSITION & OUTPUT TIME 

DC . W 23*256+11 


DC . W 0 


BRA. S GETC 

/TRY AGAIN 
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XDFL 



G 

Define File 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 


$A0D4 

MPDOSF 

XDFL 

<status error retum> 

In DO.W = # of contiguous sectors 
(Al) = File name 

Hie DEFINE FILE primitive creates a new file entry in a PDOS disk directory, 
specified by address register Al.A PDOS file name consists of an alphabetic 
character followed by up to 7 additional characters. An optional 3 character ex- 
tension can be added if preceded by a colon. Likewise, the directory level and 
disk number are optionally specified by a semicolon and slash respectively. The 
file name is terminated with a null. 

The filename convention is as follows where upper and lower case are unique.: 

APPPPPPP:PPP;NNN/NNN 

# - Auto-create flag may prefix filename 
A -- Alpha characters A-Z or a-z 

P - Printable characters except “/”. The character may be used, but 

will conflict with the monitor command separator unless the filename 
is enclosed within parentheses 
N -- Number in the range of 0-255 

Data register DO contains the number of sectors to be initially allocated at file 
definition. If register DO is nonzero, then a contiguous file is created with DO 
sectors. Otherwise, the value stored in the SYRAM variable “FECT.” + 1 is 
used to define the number of sectors that will be allocated. Each sector of alloca- 
tion corresponds to 252 bytes of data. A contiguous file facilitates random ac- 
cess to file data since PDOS can directly position to any byte within the file 
without having to follow sector links. A contiguous file is automatically 
changed to a non-contiguous file if it is extended with non-contiguous sectors. 

If the register DO is non-zero, then the EOF pointer will be set to point at the end 
of the last allocated sector; otherwise, the EOF pointer will point at the begin- 
ning of the first allocated sector. 

50 = Bad File Name 

51= File Already Defined 

55 = Too Few Contiguous Sectors 

57 = File Directory Full 

61 = File Already Open 

68 = Not PDOS Disk 

Disk errors 
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XDLF 

Delete File 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

Possible 

Errors: 

Example: 


$A0D6 

MPDOSF 

XDLF 

<status error retum> 

In (Al) = File name 

The DELETE FILE primitive removes the file whose name is pointed to by ad- 
dress register Al from the disk directory and releases all sectors associated with 
that file for use by other files on that same disk. A file cannot be deleted if it is 
delete (*) or write (**) protected. 

50 = Bad File Name 

53 = File Not Defined 

58 = File Delete or Write Protected 

61 = File Already Open 

68 = Not PDOS Disk 

Disk errors 



LEA. L FN (PC) , Al 

;GET FILE NAME PTR 


XDLF 

/DELETE FILE 


BNE.S ERROR 

/ERROR 


— 

/NORMAL RETURN 

FN 

DC. B 'TEMP/2',0 

EVEN 
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XDMP 

Dump Memory From Stack 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 

START 

x>MASM20 

x>TEMP 

0000DD00 

0000DD10 

x> 


$A04A 

MPDOSK3 

XDMP 

In USP.L = <# of bytesxW 

<start address>.L 
Out USP.L = USP.L + 6 

The DUMP MEMORY FROM STACK primitive dumps a block of memory to 
the console as specified by two parameters on the user stack (USP). The left side 
of the output is a hexadecimal dump and the right side is a masked ($7F) ASCII 
dump. To use this primitive, first push a 32-bit address and then a 16-bit number 
of the amount of memory to be dumped. The primitive will automatically clean 
up the user stack. 

XBUG- Debug Call 
XRDM - Dump Registers 

PB - PDOS Debugger ( PDOS Monitor , Editor , Utilities manual) 

None 


PEA. L START (PC) 

MOVE . W #32, - (A7) 

XDMP 

XEXT 

END START 

TEMP: SR, #TEMP 

487A FFFE 3F3C 0020 A04A A00E 044F 5248 Hz..?<. .J...ORH 
20CC 20C9 43EE 068E 4298 B1C9 65FA 2D49 . .C. . .B. . .e. -I 
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XDPE 

Delay Physical Event 

Value: 

Module: 

Syntax: 

Registers: 

Restrictions: 

Description: 


See Also: 
Example: 


$A114 

MPDOSK1 

XDPE 

In AO = Event address 

D0.L = Time in TICs for delay (0=clear entry) 

Dl.W = Event descriptor 

XDPE does not initialize the event like XDEV. You must initialize the event 
before using this call. If the event does not time out, clear it by setting the time 
toO. 

XDPE causes the specified event to be sel/cleared after the specified time has 
elapsed. Each event can have only one delayed action pending. Successive calls 
will supersede pending requests. Only the lower eight bits of the descriptor are 
used. To cancel pending actions, specify a delay time of 0. 

The event descriptor is a 16-bit word that defines both the bit number at the 
specified AO address and the action to take on the bit. The following bits are 
defined: 

f Bit number — 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 'N 
Tx x x x xxxS x.x x x B B B 

T = Should the bit be toggled on scheduling? 

l=Yes (toggle) , 0=No (do not toggle) 

S = Suspend on event bit clear or set 

l=Suspend on SET, 0=Suspend on CLEAR 
BBB = The 680x0 bit number to use as an event 
x = Reserved, should be 0 

V J 

Since the bit number is specified in the lower three bits of the descriptor, you 
may use the descriptor with the 680x0 BTST, BCLR, BSET instructions. 

XDEV - Delay Set/Clear Event 
XSOE - Suspend on Physical Event 
XTLP - Translate Logical to Physical Event 


MOVE . L 

#$80800081, D1 

SET DESCRIPTORS 

LEA. L 

PEV (PC) , A0 

GET PEV ADDRESS 

MOVE A. L 

AO, Al 

COPY FOR EVl 

MOVE . L 

#100, DO 

SET TIMEOUT 

BCLR.B 

Dl, (A0) 

CLEAR TIMEOUT EV0 

XDPE 


START DELAY TIMER 

XSOE 


SUSPEND ON EITHER 
BIT 0 SET OR BIT 1 



SET VIA DELAY TIMER 

PEV DC . W 

0 
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XDTV 

Define Trap Vectors 


Value: 

Module: 

Syntax: 

Registers: 


Kif 3 

Description: 


$A024 

MPDOSK1 

XDTV 

In DU = TVCZ FEDC BA98 7654 3210 
(AO) = Table base address 
(Al) = Vector table address 
Vector table: 

DCJL TRAP #0-<B ASE ADR> 

DCX TRAP #15-<BASE ADR> 

DCX ZDIV-<BASE ADR> 

DCX CHK-<BASE ADR> 

DCX TRAPV-<BASE ADR> 

DCX TRACE-<BASE ADR> 

The vector table size is variable and each entry corresponds to non-zero bits in 
the mask register (D1X). Each entry is a long signed displacement from the 
base address register. 

The DEFINE TRAP VECTORS primitive loads user routine addresses into the 
task control block exception vector variables. Each task has the option to 
process its own TRAP, zero divide, CHK, TRAPV, and/or trace exceptions. 
Data register D1 selects which vectors are to be loaded according to individual 
bits corresponding to vectors in the vector table pointed to by address register 
Al. Bits 0 through 19 (right to left) correspond to TRAPs 0 through 15, zero 
divide, CHK, TRAPV, and trace exceptions. A 1 bit moves a vector from the 
vector table (biased by base address AO) into the task control block. 

/” Dl.L = TVCZ FEDCBA9876543210 'N 

\\\\ \ 

\\\\ \ TRAPS #0-#15 

\\\\ Zero divide 

\\\ CHK 

\\ TRAPV 

\ Trace exception 

V J 

When an exception occurs, the task control block is checked for a corresponding 
non-zero exception vector. If found, then the return address is pushed on the 
user stack (USP) followed by the exception address and condition codes. PDOS 
next moves to user mode and executes a return with condition codes (RTR). 

This effectively acts like a jump subroutine with the return address on the user 
stack. 
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XDTV - Define Trap Vectors 


Possible 

Errors: 

See Also: 

Example: 


IF <excp>$(A6) THEN 1) Push return on USP 

2) Push xxx$(A6) on USP 

3) Push CCs on USP 

4) Move to user mode 

5) Exit with RTR 
ELSE PDOS error routine 

The trace processing is handled differently. If the processor is in supervisor 
mode when a trace exception occurs, the trace bit is cleared and the exception is 
dismissed. The processor remains in supervisor mode. If the processor is in user 
mode and there is a non-zero trace variable in the task control block, then the 
trace is again disabled, the trace processor address is pushed on the supervisor 
stack along with status, and a return from exception is executed (RTE). 

IF <sup> THEN 1) Disable trace 

2) Exit in supervisor mode 
ELSE IF TRC$(A6) THEN 1) Disable trace 

2) Leave on stack 

3) Push TRC$(A6) 

4) Push SR+$2000 

5) Exit with RTE 
ELSE PDOS error routine 

None 


XVEC - Set/Read Exception Vector 


/ 0 \ 

A ? 



* 


TVCZFEDCBA9876543210 

VCON 

EQU 

%11111000000000100001 

SVECT 

MOVE . L 

#VCON, Dl 

;GET CONTROL VAR 


LEA. L 

VT (PC) ,A0 

/POINT TO TABLE 


MOVEA.L 

AO, Al 

; BASE=TABLE 


XDTV 


/SET VECTORS 

VT 

DC . L 

TRAP 00 -VT 

/TRAP #0 


DC . L 

TRAP05-VT 

/TRAP #5 


DC . L 

TRAP15-VT 

/TRAP #15 


DC . L 

ZDIV-VT 

/ZERO DIVIDE 


DC . L 

CHKP-VT 

/CHK PROCESSOR 


DC . L 

TRPV-VT 

/ TRAPV PROCESSOR 


DC . L 

TRCE-VT 

/ TRACE 


€ 

€ 
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XERR 

Return Error DO to Monitor 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A00C 

MPDOSK1 

XERR 

In DO.W = Error code 

The RETURN ERROR DO TO MONITOR primitive exits to the PDOS monitor 
and passes an error code in data register DO. PDOS prints “PDOS ERR”, fol- 
lowed by the decimal error number. The error call can be intercepted by chang- 
ing the value of the ERR$ variable in the task TCB. This allows you to 
customize your own monitor. 

XEXT - Exit To Monitor 

XEXZ - Exit To Monitor With Command 

None 



XRSE 


; READ SECTOR 


BNE.S 

RERR 

/ERROR 

RERR 

CMPI.W 

#56, DO 

/EOF? 


BNE.S 

RERR 2 

;N 


XCLF 


/Y, CLOSE FILE 


BNE.S 

RERR 2 



RTS 



* 




RERR 2 

XERR 


/RETURN ERROR 
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XEXC 

Execute PDOS Call D7.W 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

Possible 

Errors: 


$A030 

MPDOSK1 

XEXC 

In D7.W = Aline PDOS CALL 

The EXECUTE PDOS CALL D7.W primitive executes a variable PDOS primi- 
tive contained in data register D7. Any registers or error conditions apply to the 
corresponding PDOS call. 

Call dependent 




Wy 


/Cy 
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XEXC - Execute PDOS Call D7.W 


Example: 


1 ************************************ j 

* 

* 

APPEND FILE 

* 

* 

AF <f ilel>, <f ile2> 

APDF 

MOVE . W #XAPF$ , D7 /APPEND COMMAND 


BRA. S RNFL02 

I ************************************ I 

* 

★ 

COPY FILE 

* 

* 

CF <f ilel>, <f ile2> 

CPYF 

MOVE . W #XCPY$,D7 /COPY COMMAND 


BRA. S RNFL02 

************************************ | 

* 

RENAME FILE 

★ 

RN <filel>, <file2> 

RNFL 

* 

MOVE . W #XRNF$, D7 /RENAME COMMAND 

RNFL02 

XGNP /SOURCE FILE 

. BLE.S ERR 6 7 
MOVEA.L A1,A2 /SAVE 

XGNP /DESTINATION FILE 

BLE.S ERR 6 7 
EXG.L Al,A2 

XEXC /EXECUTE D7.W 

BNE.S RNFL04 /ERROR 

* 

XEXT /RETURN 

ERR 6 7 
* 

MOVEQ.L #67, DO /PARAMETER ERROR 

RNFL04 

XERR /ERROR 
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XEXT 

Exit to Monitor 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A00E 

MPDOSK1 

XEXT 

(Always exits to monitor) 

None 

The EXIT TO MONITOR primitive exits a user program and returns to the 
PDOS monitor. The exit can be intercepted by changing the value of the EXT$ 
variable in the task TCB. This primitive allows you to customize your own 
monitor. 

XERR - Return Error DO To Monitor 
XEXZ - Exit To Monitor With Command 

None 


XCLF 

/CLOSE FILE, ERROR? 1 

BNE.S ERROR 

;Y, 

DO ERROR CALL 

XEXT 

;N, 

RETURN TO MONITOR 


48 


3 . 3 - 10/87 


PDOS ASSEMBLY PRIMITIVES REFERENCE 




XEXZ 

Exit to Monitor with Command 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A04C 

MPDOSK1 

XEXZ 

(exits to monitor) 

In (Al) = Command string 

The EXIT TO MONITOR WITH COMMAND primitive exits a user program 
and returns to the PDOS monitor. In addition, the monitor command buffer is 
loaded with the string pointed to by address register Al. This is useful in passing 
back parameters to the monitor or to chain to another program. The exit can be 
intercepted by changing the value of the EXT$ variable in the task TCB. This 
primitive allows you to customize your own monitor. 

XERR - Return Error DO To Monitor 
XEXT - Exit To Monitor 

None 


EXIT LEA.L CMD (PC) , Al ;GET COMMAND 
XEXZ ; EXI T 

* 

CMD DC .B 'PRGM2',0 
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XFAC 

File Altered Check 

Value: 

Module: 

Syntax: 

Registers: 

Description: 

Possible 

Errors: 

Example: 




$A0CE 

MPDOSF 

XFAC 

<status error retum> 

In (Al) = FILE NAME 

Out CC = File not altered 

CS = File altered 
NE = Error 

a r>s 

( ;; \ 

The FILE ALTERED CHECK primitive looks at the alter bit (bit $80) of the file ^ v 

pointed to by address register Al. If the bit is zero (not altered), then the primi- 
tive returns with the carry status bit clear. If the alter bit is set (file altered), then 
it is cleared and the primitive returns with carry set. If either case, the bit is al- 
ways cleared. 

Disk errors 


XGNP 


;GET PARAMETER 

XFAC 


/CHECK FOR FILE ALTERED 

BNE.S 

@0002 

/ERROR 

BCC.S 

FALSE 

/NOT ALTERED, RETURN FALSE 

BRA. S 

TRUE 

/ALTERED, TRUE 




c 

c 
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XFBF 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

Possible 

Errors: 

Example: 


Flush Buffers 


$A0F8 

MPDOSF 

XFBF 

<status error retum> 

None 

The FLUSH BUFFERS primitive forces all file slots with active channel buffers 
to write any updated data to the disk. It thus does a checkpoint of any open and 
altered file. 

Disk errors 


LOOP MOVEQ.L 

#5*TPS,D0 

; DELAY 5 SECS 

MOVE . W 

#128, D1 

; EVEN 128 

XDEV 



XSUI 


; SUSPEND 

XFBF 


/CHECK POINT DISK 

BRA. S 

LOOP 
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XFFN 


Fix File Name 

Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A0A0 

MPDOSF 

XFFN 

<status error retum> 

In (Al) = File name 

Out D0.L = Disks(4th/3rd/2nd/lst) 

TW0$ = Disk 

(Al) = MWB$, Fixed file name 

The FIX FILE NAME primitive parses and verifies a character string for file 
name, extension, directory level, and disk number. The results are returned in 
the 32-character monitor work buffer (MWB$(A6)). Data register DO is also 
returned with the disk numbers in the disk path. The first disk number in the 
disk path is returned in the monitor word temp (TW0(A6). The error return is 
used for an invalid file name. 

The filename convention is as follows where upper and lower case are unique: 

APPPPPPP:PPP;NNN/NNN 

# - Auto-create flag may prefix filename 
A -- Alpha characters A-Z or a-z 

P - Printable characters except “/”. The character may be used, but 

will conflict with the monitor command separator unless the filename 
is enclosed within parentheses 
N - Number in the range of 0-255 

The monitor work buffer is cleared and the following assignments are made: 

0(A1) = File name 

8(A1) = File extension 

1 1(A1) = File directory level 

System defaults are used for the disk number and file directory level when they 
are not specified in the file name. 

XRDN - Read Directory Entry By Name 

50 = Bad File Name 




'xJ 


/f'~\ 


XGLU 

;GET INPUT LINE 

XFFN 

;FIX FILE NAME 

BNE.S ERROR 

/ERROR IN NAME 

— 



C 

c 
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XFTD 

Fix Time and Date 


Value: 

Module: 

Syntax: 

Registers: 

Description: 
See Also: 


Possible 

Errors: 

Example: 


$A058 

MPDOSK3 

XFTD 

Out DO.W = Hours * 256 + Minutes 

Dl.W = (Year * 16 + Month) * 32 + Day 

The FIX TIME & DATE primitive returns a two-word encoded time and date 
generated from the system timers. The resultant codes include month, day, year, 
hours, and minutes. The ordinal codes can be sorted and used as inputs to the 
UNPACK DATE (XUDT) and UNPACK TIME (XUTM) primitives. 

Data register DO.W contains the time and register Dl.W contains the date. This 
format is used throughout PDOS for time stamping items. 

XPAD- Pack ASCII Date 
XRDT - Read Date 
XRTM - Read Time 
XU AD - Unpack ASCII Date 
XUDT - Unpack Date 
XUTM - Unpack Time 

None 



LEA. L 

TSTP (PC) ,A0 

/SAVE AREA 


XFTD 


/GET TIME STAMP 


MOVEM.W 

D0-D1, (AO) 

/SAVE TIME & DATE 

TSTP 

DS.W 

2 

/TIME STAMP SAVE 
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XFUM 

Free User Memory 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


$A040 

MPDOSK1 

XFUM 

<status error retum> 

In DO.W = Number of K bytes 

(AO) = Beginning address 

The FREE USER MEMORY primitive deallocates user memory to the system 
memory bit map. Data register DO.W specifies how much memory is to be deal- 
located while address register AO points to the beginning of the data block. 

Memory thus deallocated is available for any task use including new task crea- 
tion. 

The number passed to DO.W must be an even number since memory that is allo- 
cated or deallocated must be in 2K increments. If the number is odd, it will be to 
rounded up to a 2K boundary. If D0=0, no action is taken. If D0<0 then error 79 
will occur. 

79 = Bad Memory Address 


MOVEQ.L 

#20, DO 

/FREE 2 OK 

MOVE A. L 

A2,A0 

; AT A2 

XFUM 

BNE.S 

ERROR 

/FREE MEMORY 
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XGCB 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


Conditional Get Character 


$A048 

MPDOSK2 

XGCB 

<status retum> 

Out D0.L = Character in bits 0-7 
SR = EQ....N 0 character 

LO....Ctrl C 
LT....Esc 

MI....Ctrl C or Esc 

If the ignore control character bit ($02) of the port flag is set, then XGCB ig- 
nores Ctrl C and Esc. 

The CONDITIONAL GET CHARACTER primitive checks for a character from 
first, the input message pointer (IMP$(A6)), second, the assigned input file 
(ACI$(A6)), and then finally, the interrupt driven input character buffer 
(PRT$(A6)). If a character is found, it is returned in the right byte of data 
register D0.L and the rest of the register is cleared. 

If there is no input message, no assigned console port character, and the inter- 
rupt buffer is empty, the status is returned as “EQ”. 

The status is returned “LO” and the break flag cleared if the returned character 
is a Ctrl C. The input buffer is also cleared. Thus, all characters entered after 
the Ctrl C and before the XGCB call are dropped. 

The status is returned “LT” and the break flag cleared if the returned character is 
the Esc character. 

For all other characters, the status is returned “HI” and “GT”. The break flag is 
not affected. 

None 


LOOP 

XGCB 


/CHARACTER? 


BEQ.S 

NONE 

;N 


BLO.S 

QUIT 

;Y, A C, DONE 


BLT.S 

NEXT 

/CONTINUE 


CMPI.B 

#'0' ,D0 

/NUMBER? 
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XGCC 

Get Character Conditional 


Value: 

Module: 

Syntax: 

Registers: 

d 3 

Description: 


Possible 

Errors: 

Example: 


$A078 

MPDOSK2 

XGCC 

<status retum> 

Out D0.L = Character in bits 0-7 
SR = EQ....N 0 character 

LO....Ctrl C 
LT....Esc 

MI... .Ctrl C or Esc 

If the ignore control character bit ($02) of the port flag is set, then XGCC ig- 
nores Ctrl C and Esc. 

The GET CHARACTER CONDITIONAL primitive checks the interrupt driven 
input character buffer and returns the next character in the right byte of data 
register D0.L. The rest of the register is cleared. The input buffer is selected by 
the input port variable (PRT$) of the TCB. 

If the buffer is empty, the “EQ” status bit is set. If the character is a Ctrl C, then 
the break flag and input buffer ate cleared, and the status is returned “LO”. If 
the character is the Esc character, then the break flag is cleared and the status is 
returned “LT”. 

If no special character is encountered, the character is returned in register DO 
and the status set “HI” and “GT”. 

If no port has been assigned for input (ie. port 0 or phantom port), then the 
routine always returns an “EQ” status. 

None 








XGCC 


/CHARACTER? 


BEQ.S 

CONT 

;N, CONTINUE 


BLO.S 

QUIT 

/Y, A C, QUIT 

* 

BLT.S 

NEXT 

; Y, ESC, GOTO NEXT 

WAIT 

* 

XGCR 


; Y, WAIT CHARACTER 

CONT 





C 
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XGCP 

Get Port Character 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


$A09E 

MPDOSK2 

XGCP 

<status retum> 

Out DO.L = Character in bits 0-7 
SR = LO....Ctrl C 
LT...JEsc 

MI....Ctrl C or Esc 

If the ignore control character bit ($02) of the port flag is set, then XGCP ig- 
nores Ctrl C and Esc. 

The GET PORT CHARACTER primitive checks for a character in the interrupt 
driven input character buffer. If a character is found, it is returned in the right 
byte of data register D0.L and the rest of the register is cleared. The input buffer 
is selected by the input port variable (PRT$) of the TCB. 

If the interrupt buffer is empty, the task is suspended pending a character inter- 
rupt 

The status is returned “LO” and the break flag cleared if the returned character 
is a Ctrl C. The input buffer is also cleared. Thus, all characters entered after 
the Ctrl C and before the XGCR call are dropped. 

The status is returned “LT” and the break flag cleared if the returned character is 
the Esc character. 

For all other characters, the status is returned “HI” and “GT”. The break flag is 
not affected. 

If no port has been assigned for input, (ie. port 0 or phantom port), then an error 
86 occurs. 

86 = Suspend on Port 0 


LOOP 

XGCP 


;GET PORT CHARACTER 


BLO.S 

QUIT 

/ A C, DONE 


BLT.S 

NEXT 

/CONTINUE 


CMPI.B 

#'0' ,D0 

/NUMBER? 
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XGCR 

Get Character 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


$A07A 

MPDOSK2 

XGCR 

<status retum> 

Out DOX = Character in bits 0-7 
SR » LO....Ctrl C 
LT...Xsc 

MI....Ctrl C or Esc 

If the ignore control character bit ($02) of the port flag is set, then XGCR ig- 
nores Ctrl C and Esc. 

The GET CHARACTER primitive checks for a character from first, the input 
message pointer (IMP$(A6)); second, the assigned input file (ACI$(A6)); and 
then finally, the interrupt driven input character buffer (PRT$(A6)). If a charac- 
ter is found, it is returned in the right byte of data register DOX and the rest of 
the register is cleared. 

If there is no input message, no assigned console port character, and the inter- 
rupt buffer is empty, the task is suspended pending a character interrupt. 
However, if the “receiver interrupt disable” bit is set on the port, the UART type 
is polled for a character. If there is a character from the UART, then it is placed 
in the type ahead buffer. 

The status is returned ‘XO” and the break flag cleared if the returned character 
is a Ctrl C. The input buffer is also cleared. Thus, all characters entered after 
the Ctrl C and before the XGCR call are dropped. 

The status is returned ‘XT’ and the break flag cleared if the returned character is 
the Esc character. 

For all other characters, the status is returned “HI” and “GT”. The break flag is 
not affected. 

If no port has been assigned for input, (ie. port 0 or phantom port), then an error 
86 occurs. 

86 = Suspend on Port 0 


LOOP 

XGCR 


;GET CHARACTER 


BLO.S 

QUIT 

; A C, DONE 


BLT.S 

NEXT 

; CONTINUE 


CMP I . B 

#'0' ,D0 

/NUMBER? 


— 
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XGLB 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 


Get Line in Buffer 


$A07C 

MPDOSK2 

XGLB 

{BLT.x ESCAPE} optional 
<status retum> 

In (Al) = Buffer address 

Out D1.L = Number of characters 

SR = EQ...J only 
LT...Esc 
LO...Ctrl C 

If the ignore control character bit ($02) of the port flag is set, then XGLB ig- 
nores Ctrl C and Esc. 

The GET LINE IN BUFFER primitive gets a character line into the buffer 
pointed to by address register Al. The XGCR primitive is used by XGLB and 
hence characters can come from a memory message, a file, or the task console 
port 

The buffer must be at least 80 characters in length. The line is delimited by a car- 
riage return. The status returns EQUAL if only a J is entered. 

If an Esc is entered, the task exits to the PDOS monitor unless a “BLT” instruc- 
tion immediately follows the XGLB call. If such is the case, then XGLB returns 
with status set at “LT”. 

If the assigned console flag (ACI$(A6)) is set, then the character is used for 
character substitutions. “&0” is replaced with the last system error number. 

“&1” is replaced with the first parameter of the command line, “&2” with the 
second, and so forth up to “&9”. 

The command line can be edited with various system defined control characters. 
A Backspace ($08) moves the cursor one character to the left. A Ctrl F ($0C) 
moves the cursor one character to the right. A Del ($7F) deletes one character to 
the left. A Ctrl D ($04) deletes the character under the cursor. The cursor need 
not be at the end of the line when the J is entered. 

XGLU - Get Line In User Buffer 

None 
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XGLB - Get Line in Buffer 


Example: 


OPEN 

XPMC 

MES01 

/PROMPT 


LEA. L 

BUF (PC) , 

A2 /GET BUFFER ADDRESS 


XGLB 


/GET LINE IN BUFFER 


BLT.S 

OPEN 

/DO NOT EXIT ON ESC 

* 

BEQ.S 

OPENIO 

/USE DEFAULT 

OPEN2 

XSOP 


/OPEN FILE 


BNE.S 

0PEN4 

/ERROR 

OPEN 4 

CMP I . W 

#53, DO 

/'NOT DEFINED' ERROR? 


BNE.S 

OPERR 

ZN 


XDFL 


/Y, DEFINE FILE, ERROR? 

* 

BEQ.S 

0PEN2 

;N 

OPERR 

* 

XERR 


/Y, REPORT ERROR 

OPENIO 

— 



MES01 

DC . B 

$0A, $0D, 

' FILE=' , 0 

BUF 

DS.B 

80 
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XGLM 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


Get Line in Monitor Buffer 


$A07E 

MPDOSK2 

XGLM 

{BLT.x ESCAPE} optional 

<status retum> 

Out (Al) = String 

D1.L = Number of characters 
SR = EQ...J only 
LT...Esc 
LO...Ctrl C 

If the ignore control character bit ($02) of the port flag is set, then XGLM ig- 
nores Ctrl C and Esc. 

The GET LINE IN MONITOR BUFFER primitive gets a character line into the 
monitor buffer located in the task control block. The XGCR primitive is used by 
XGLM and hence, characters can come from a memory message, a file, or the 
task console port. 

The buffer has a maximum length of 80 characters and is delimited by a carriage 
return. The status returns EQUAL if only a J is entered. 

If an Esc is entered, the task exits to the PDOS monitor unless a “BLT” instruc- 
tion immediately follows the XGLM call. If such is the case, then XGLM 
returns with status set at “LT”. 

If the assigned console flag (ACI$(A6)) is set, then the character is used for 

character substitutions. “&0” is replaced with the last system error number. 
“&1” is replaced with the first parameter of the command line, “&2” with the 
second, and so forth up to “&9”. 

The command line can be edited with various system-defined control characters. 
A Backspace ($08) moves the cursor one character to the left. A Ctrl L ($0C) 
moves the cursor one character to the right. A Del ($7F) deletes one character to 
the left A Ctrl D ($04) deletes the character under the cursor. The cursor need 
not be at the end of the line when the J is entered. 

The last command line can be recalled to the buffer by entering a Ctrl A ($01). 
This line can then be edited using the above control characters. 

None 


XGLM 

;GET LINE 

BEQ.S NONE 
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XGLU 

Get Line in User Buffer 




Value: 

Module: 

Syntax: 

Registers: 


Description: 


Possible 

Errors: 


$A080 

MPDOSK2 

XGLU 

{BLT.x ESCAPE} optional 

<status retum> 

Out (Al) = String 

D1.L = Number of characters 
SR = EQ...J only 
LT...Esc 
LO...Ctrl C 

If the ignore control character bit ($02) of the port flag is set, then XGLU ig- 
nores Ctrl C and Esc. 

The GET LINE IN USER BUFFER primitive gets a character line into the user 
buffer. Address register A6 normally points to the user buffer. The XGCR primi- 
tive is used by XGLU; hence, characters come from a memory message, a file, 
or the task console port. The line is delimited by a carriage return. The status 
returns EQUAL if only a J is entered. Address register Al is returned with a 
pointer to the first character. 

The user buffer is located at the beginning of the task control block and is 256 
characters in length. However, the XGLU routine limits the number of input 
characters to 78 plus two nulls. 

If an Esc ($1B) is entered, the task exits to the PDOS monitor unless a “BLT” in- 
struction immediately follows the XGLU call. If such is the case, then XGLU 
returns with status set at “LT”. 

If the assigned console flag (ACI$(A6)) is set, then the “&” character is used for 
character substitutions. “&0” is replaced with the last system error number. 

“&1” is replaced with the first parameter of the command line, “&2” with the 
second, and so forth up to “&9”. 

The command line can be edited with various system defined control characters. 
A Backspace ($08) moves the cursor one character to the left. A Ctrl L ($0C) 
moves the cursor one character to the right. A Del ($7F) deletes one character to 
the left. A Ctrl D ($04) deletes the character under the cursor. The cursor need 
not be at the end of the line when the J is entered. 

None 





/C\ 

(I 
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c 

c 


XGLU - Get Line in User Buffer 


( 

< 


Example: 


GETN 

MOVEQ.L 

#DNUM, D4 

;GET DEFAULT # 


XGLU 


;GET LINE 


BEQ.S 

GETN 2 

;USE DEFAULT 


XCBD 


; CONVERT #, ERROR? 


BLE.S 

ERROR 

;Y 

* 

MOVE.L 

Dl,D4 

;N 

GETN 2 

MOVE . L 

D4, - (A7) 

; SAVE # 


( 


C 


( 


( 

c 
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XGML 

Get Memory Limits 


Value: 

Module: 

Syntax: 

Registers: 


Description: 


Possible 

Errors: 

Example: 


$A010 

MPDOSK1 

XGML 

Out (AO) = End TCB (TBE$) 

(Al) = Upper memory limit (EUM$-USZ) 

(A2) = Last loaded address (BUM$) 

(A5) = System RAM (SYR AM) 

(A6) = Task TCB 

The GET MEMORY LIMITS subroutine returns the user task memory limits. 
These limits are defined as the first usable location after the task control block 
($500 beyond address register A6) and the end of the user task memory. The 
task may use up to but not including the upper memory limit. 

Address register AO is returned pointing to the beginning of user storage (which 
is the end of the TCB). Register Al points to the upper task memory limit less 
$100 hexadecimal bytes for the user stack pointer (USP). Register A2 is the last 
loaded memory address as provided by the PDOS loader. Address registers A5 
and A6 are returned with the pointers to system RAM (SYR AM) and the task 
control block (TCB). 

None 


START 

* 

XGML 


;GET MEMORY LIMITS 

START 2 

CLR.B 

(A2) + 

/CLEAR MEMORY 


CMPA.L 

Al, A2 

/DONE? 


BLO.S 

START 2 

/N 


: /f~^ 

W,.y 




\ 


C 

€ 
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XGMP 

Get Message Pointer 


Value: 

$A004 

Module: 

MPDOSK1 

Syntax: 

XGMP 

<status retum> 

Registers: 

In D0.B = Message slot number (0.. 1 5) 

Out D0.L = Source task # (-1 = no message) 

SR = EQ....Message (Event[64+Message slot #]=0) 

NE....No message 

D0.L = Error number 62 if message pointer error 
(Al) = Message 

Description: 

The GET MESSAGE POINTER primitive looks for a task message pointer. If 
no message is ready, then data register DO returns the error number 62 and 
status is set to “Not Equal”. 


If a message is waiting, then data register DO returns with the source task num- 
ber, address register Al returns with the message pointer, event (64 + message 
slot #) is set to zero indicating message received, and status is returned equal. 

See Also: 

XGTM - Get Task Message 
XKTM - Kill Task Message 
XSMP - Send Message Pointer 
XSTM - Send Task Message 

Possible 

Errors: 

62 = Bad Message Ptr Call 

Example: 




MOVE . W 
XSUI 

# 69, Dl 



MOVE . B 
XGMP 

#D, DO 

/Check message slot #5 


BNE.S 

NOMESS 

;No message 


XPMC 


/Print message to console 

NOMESS 

XPMC 


MESS 

MESS 

DC . B 


$0A, $0D, ' NO MESSAGE POINTER' , 0 
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XGNP 

Get Next Parameter 



Value: 

Module: 

Syntax: 

Registers: 


Description: 


Possible 

Errors: 


$A05A 

MPDOSM 

XGNP 

<status retum> 

Out SR= LO...N 0 parameter 

[(A1)=0] 

EQ...Null Parameter 
KA1)=0] 

HI.. .Parameter 

[(A 1)=PAR AMETER] 

The GET NEXT PARAMETER primitive parses the monitor buffer for the next 
command parameter. The routine does this by maintaining a current pointer into 
the command line buffer (CLB$) and a parameter delimiter (CMD$). 

X>MASM SOURCE, BIN LIST ERR.SP 
x>CT (ASM SOURCE, BIN) , 15, , 3 
X>DO ((DO DO), DO) 

The XGNP primitive clears all leading spaces of a parameter. A parameter is a 
character string delimited by a space, comma, period, or null. If a parameter 
begins with a left parenthesis, then all parsing stops until a matching right paren- 
thesis or null is found. Hence, spaces, commas, and periods are passed in a 
parameter when enclosed in parentheses. Parentheses may be nested to any 
depth. 

x>LS.LS 

An “LO” status is returned if the last parameter delimiter is a null or period. 
XGNP does not parse past a period. In this case, address register A1 is returned 
pointing to a null string. 

X>MASM SOURCE,,, ERR 

An “EQ” status is returned if the last parameter delimiter is a comma and no 
parameter follows. Address register A1 is returned pointing to a null string. 

A “HI” status is returned if a valid parameter is found. Address register A 1 then 
points to the parameter. 

None 


/T>\ 

Qj 



/(On, 

'kJ 



c 
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XGTM 

Get Task Message 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A01E 

MPDOSK1 

XGTM 

<status retum> 

In (Al) = Buffer address 

Out DO.L = Source task # 

(-1 = no message) 

SR = EQ....message found 
NE....no message 

The GET TASK MESSAGE primitive searches the PDOS message buffers for a 
message with a destination equal to the current task number. If a message is 
found, it is moved to the buffer pointed to by address register Al. The message 
buffer is then released, and the status is set EQUAL. If no message is found, 
status is returned NE. 

The buffer must be at least 64 bytes in length. (This is a configuration 
parameter.) The message buffers are serviced on a first in, first out basis 
(FIFO). Messages are data independent and pass any type of binary data. 

XGMP - Get Message Pointer 
XKTM - Kill Task Message 
XSMP - Send Message Pointer 
XSTM - Send Task Message 

None 





LOOP 

LEA. L 

BUF (PC) , Al 

;GET BUFFER ADR 


XGTM 


/LOOK FOR MESSAGE 


BNE. 

S NONE 

/NONE 


XPCL 


/OK, OUT CRLF 


XPLC 


/OUT MESSAGE 

•k 

BRA. S 

LOOP 

/LOOK AGAIN 

NONE 

— 



BUFFER 

DS.B 

64 

/MESSAGE BUFFER 


ft. 
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XGUM 

Get User Memory 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A03E 

MPDOSK1 

XGUM 

<status error retum> 

In DO. W = Number of K bytes 

Out (AO) = Beginning memory address 
(Al) as End memory address 

The GET USER MEMORY primitive searches the system memory bit map for a 
contiguous block of memory equal to DO.W Kbytes. If found, the “EQ” status is 
set, address registers AO and Al are returned the the start and end memory ad- 
dress, and the memory block is marked as allocated in the bit map. 

The number in register DO must be an even number. Memory is both allocated 
and deallocated in 2K blocks. 

XFUM - Free User Memory 

73 = Not Enough Memory 


GETM 

CLR.W 

-<A7) 

;PUSH .NE. 


MOVEQ.L 

XGUM 

#10, DO 

;GET 10K BYTES 


BNE.S 

0GMO2 

/ERROR 


MOVE . L 

AO, AV (A6) 

; SAVE 

* 

ADDQ.W 

#$04, (Al) 

/RETURN .EQ. 

@GM02 

RTR 


/RETURN 
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Initialize Sector 

Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A0C0 

MPDOSF 

XISE 

<status enor retum> 

In DO.B = Disk number 

Dl.W = Logical sector number 
(A2) = Buffer address 

The INIT SECTOR primitive is a system-defined, hardware-dependent program 
which writes 256 bytes of data from a buffer (A2) to a logical sector number 
(Dl) on disk (DO). This routine is meant to be used only for disk initialization 
and is equivalent to the WRITE SECTOR (XWSE) primitive for all sectors ex- 
cept 0. Sector 0 is not checked for the PDOS ID code. 

BIOS in PDOS Developer’ s Reference Manual 
XRSE - Read Sector 
XRSZ - Read Sector Zero 
XWSE - Write Sector 

Disk errors 



MOVEQ.L 

DSKN, DO 

;GET DISK # 


MOVEQ.L 

#0,D1 

; START AT SECTOR 0 

* 

LEA. L 

BUF (PC) ,A2 

;GET BUFFER PTR 

LOOP 

XISE 


/WRITE TO DISK 


BNE.S 

ERROR 

/ERROR 


ADDQ.W 

#1,D1 

/MOVE TO NEXT 


CMPI.W 

#DISKZ,D1 

/DONE? 


BLO.S 

LOOP 

;N 
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XKTB 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


Kill Task 


$A0FA 

MPDOSK1 

XKTB 

<status error retum> 

In DO.B = Task number 

If D0.B equals zero, then kill current task. If DO.B is negative, then kill task 
without allocating task memory to system bit map. 

The KILL TASK primitive removes a task from the PDOS task list and optional- 
ly returns the task’s memory to the system memory bit map. Only the current 
task or a task spawned by the current task can be killed. Task 0 cannot be killed. 

The kill process includes releasing the input port assigned to the task and clos- 
ing all files associated with the task. 

If D0=0, then kill self & deallocate memory 

The task number is specified in data register DO.B. If register DO.B equals zero, 
then the current task is killed and its memory deallocated in the system memory 
bit map. 

If D0>0, then kill task DO & deallocate memory 

If D0<0, then kill task ABS(D0) & do not deallocate memory 

If D0.B is positive, then the selected task is killed and its memory deallocated. If 
D0.B is negative, then task number ABS(D0.B) is killed, but its memory is not 
deallocated in the memory bit map. 

XCTB - Create Task Block 

74 = Non-existent Task 


PREND 

CLR.B 

DO 

/KILL 

SELF 


XKTB 


/CALL 

CURRENT TASK 


BNE.S 

ERROR 
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XKTM 

Kill Task Message 


C 


Value: 

Module: 

Syntax: 

Registers: 

Description: 
See Also: 

Possible 

Errors: 

Example: 


$A028 

MPDOSK1 

XKTM 

<status retuno 


In 

D0.B = Task # 


(Al) = Buffer address 

Out 

D0.L = Source task # 


(-1 = no message) 


SR= EQ.... message found 


NE....no message 


The KILL TASK MESSAGE primitive allows you to read (and thus clear) any 
task’s messages from the system message buffers. 

XGMP - Get Message Pointer 
XGTM - Get Task Message 
XSMP - Send Message Pointer 
XSTM - Send Task Message 

None 


/On 



LOOP 

MOVEQ.L 

#0, DO ; SELECT TASK 0 


LEA. L 

BF (PC) , Al 


XKTM 

;ANY MESSAGE? 


BEQ.S 

LOOP ; Y, DO AGAIN 


/T^\ 


© 


72 


3 . 3 - 10/87 


PDOS ASSEMBLY PRIMITIVES REFERENCE 



XLDF 


Load File 


Value: 

Module: 

Syntax: 


$A0B0 

MPDOSF 

XLDF 

<status error retum> 


Registers: 




Description: 


In D1.B = Execution flag 

(AO) = Start of load memory 
(Al) = End of load memory 
(A3) = File name 

Out (AO) = EAD$ - Lowest loaded address or “OB” entry address 
(Al) = BUM$ - Last loaded address 

If D1.B=0, then XLDF returns to your calling program. If Dl.BoO, then the 
program is immediately executed. 

The LOAD FILE primitive reads and loads 68000 object or binary code into 
user memory. The file name pointer is passed in address register A3. Registers 
AO and Al specify the memory bounds for the relocatable load. Any type of file 
may be loaded if die execution flag is clear. If Dl.BoO, then the file must be 
typed “OB” or “SY”. 


If data register D1.B is zero, then XLDF returns to the calling program. Other- 
wise, the loaded program is immediately executed. 

For “OB” type files, section 0 code is loaded first followed by section 1 and so 
forth to section 15. All simple references among sections are resolved but no 
operations are allowed. The loader also sets the task entry address EAD$(A5) 
and register AO to the address specified by the start tag, or to the start of the file 
if no start address is given. All object files must be assembled with the 3.3 as- 
sembler in order to load. 

A “SY” file is generated from an “OB” file by the MS YFL utility. The con- 
densed object is a direct memory image and must be position-independent code. 

The XLDF primitive uses long word moves and may move up to three bytes 
more than contained in an “SY” file. As such, you must allow for extra space for 
data moves to an existing program. 
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XLDF - Load File 


O 


Possible 

Errors: 


Example: 


r 


Legal tags: 

OT — LABEL — vvvrrrddddddtttt 




lSaaaaaaaa 

2Saaaaaaaa 

3dd 

4dddd 

5dddddddd 

6 

7 

8 

9Snnnnrmnn 

Dccccdddd 

ESllllllll 

Fee 


; ENTRY POINT 
/ADDRESS 

/SIMPLE DATA BYTE 

/SIMPLE DATA WORD 

/SIMPLE LONG DATA WORD 

/POP BYTE 

/POP WORD 

/POP LONG WORD 

/PUSH VALUE 

/STORE MULTIPLE WORD 

/SECTION LENGTH 

/END OF RECORD /CHECKSUM 




Illegal tags: 
ASl<symbol> 

BO 

CSl<symbol>nnnnnnnn 


/PUSH SYMBOL 
/DO OPERATION 
/EXTERNAL DEFINITION 


J 


63 = Bad Object Tag 
65 = Not Executable 
73 = Not Enough Memory 
Disk errors 


/On 


XGML 


/GET MEMORY LIMITS 

CLR.L 

DO 

/RETURN 

ADDA. W 

#$100, AO 

/ADD DISPLACEMENT 

LEA. L 

FN (PC) , A3 

/GET FILE NAME 

XLDF 


/LOAD FILE 

BNE.S 

ERROR 

/ERROR 
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XLER 

Load Error Register 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


$A03A 

MPDOSK1 

XLER 

In DO.W = Error number 

The LOAD ERROR REGISTER primitive stores data register DO.W in the task 
control block variable LEN$(A6). This variable will replace the parameter sub- 
stitution variable “&0” during a procedure file. 

User programs should execute this call when an error occurs. 

The enable echo flag (ECF$(A6)) is cleared by this call. 

None 


ADDI.W 

#300, DO /BIAS ERROR # 

XLER 

/REPORT TO PDOS 
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XLFN 

Look for Name in File Slots 


Value: 

Module: 

Syntax: 

Registers: 

Description: 



$A0A2 

MPDOSF 


XLFN 

<status retum> 

In DO.B = Disk number 
(Al) = Fixed file name 
Out D3.W = File ID (Disk #/Index) 

(A3) = Slot entry address 
SR = NE...File name not found 
EQ...File name found 

If D3.W=0, then no slots are available. 

The LOOK FOR NAME IN FILE SLOTS primitive searches through the file 
slot table for the file name as specified by registers DO.B and Al. If the name is 
not found, register D3.W returns with a -1 or 0. The latter indicates the file was 
not found and there are no more slots available. Otherwise, register D3.W 
returns the associated file ID and register A3 returns the address of the file slot. 

A file slot is a 38-byte buffer where the status of an open file is maintained. 
There are 32 file slots available. The file ID consists of the disk # and the file 
slot index. 


l 4.v 



File slots assigned to read-only files are skipped and not considered for file 
match. 


/File 


slot format: 
0 (A3) = 
11 (A3) = 
12 (A3) = 
14 (A3) = 
16 (A3) = 
20 (A3) = 
22 (A3) = 
24 (A3) = 
26 (A3) = 
28 (A3) = 
32 (A3) = 
34 (A3) = 
36 (A3) = 


(38 bytes) 

File name. 11 
Level . 1 
Status. 2 

Sector # in memory. 2 
Pointer. 4 

Sector index in memory. 2 
Sector index of eof.2 
# bytes in end sector. 2 
Lock. 1/shared flag.l 
Channel buffer ptr.4 
Lock. 1/shared flag.l 
Roll-out error #.2 
Disk #.2 
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XLFN - Look for Name in File Slots 


Possible 

Errors: 


Status: $01xx 

Sequential 

$02xx 

Random 

$06xx 

Shared random 

$0Axx 

Read only random 

$10xx 

Driver in channel 

$xx80 

Altered 

$xx04 

Contiguous 

$xx02 

Delete protect 

$xx01 

Write protect 

$8xxx 

Sector altered 

$4 xxx 

File altered 

$2xxx 

Buffer locked in memory 


V J 

None 


Example: 


XNOP 

LEA. L 

FN (PC) ,A1 

/POINT TO FILE NAME 


XFFN 


/FIX FILE NAME 


BNE 

S ERRl 

/ERROR 


XLFN 


/LOOKUP NAME, FOUND? 


BEQ. 

S ERR2 

/Y, FILE ALREADY OPEN 

ERRl 

XPMC 

MERRl 

/INVALID FILE NAME 

* 

RTS 



ERR2 

XPMC 

MERR2 

/FILE ALREADY OPEN 

* 

RTS 



FN 

DC . B 

' FILENAME 

',0 

MERRl 

DC . B 

$0A, $0D, ' 

INVALID FILE NAME ' , 0 

MERR2 

DC .B 
EVEN 

$0A, $0D,' 

FILE ALREADY OPEN' , 0 
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XLKF 

Lock File 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A0D8 

MPDOSF 

XLKF 

<status error retum> 

In Dl.W = File ID 

The LOCK FILE primitive locks an opened file so that no other task can gain ac- 
cess until an UNLOCK FILE (XULF) primitive is executed. Only the locking 
task has access to the locked file. 

A locked file is indicated by a -1 ($FF) in the left byte of the lock file parameter 
(LF) of the file slot usage (FS) command. The locking task number is stored in 
the left byte of the task number parameter (TN). 

XULF -Unlock File 

52 = File Not Open 
59 = Bad File Slot 
75 = File Locked 
Disk errors 


MOVE . W 

D5,D1 

;GET FILE ID 

XLKF 


; LOCK FILE 

BNE.S 

ERROR 

/PROBLEM 

— 
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XLKT 

Lock Task 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A014 

MPDOSK1 

XLKT 

<status retum> 

Out SR = EQ...Not locked 
NE...Locked 

The LOCK TASK primitive locks the requesting task in the run state by setting 
the swap lock variable in system RAM to nonzero. The task remains locked 
until an UNLOCK TASK (XULT) is executed. The status of the lock variable 
BEFORE the call is returned in the status register. 

XLKT waits until all locks (Level 2 and Level 3 locks) are cleared before the 
task is locked. 

XULT - UNLOCK TASK 

None 


XLKT 

SNE.B D7 
TAS . B SBIT 

* 

WAIT TST.B SBIT 
BMI.S WAIT 
TST.B D7 
BNE.S CONT 
XULT 

* 

CONT 


; LOCK TASK 
; SET FLAG 

/START CRITICAL PROCESS 

;OK? 

;N 

;Y, LEAVE LOCKED? 

;Y 

;N, UNLOCK TASK 
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XLSR 

Load Status Register 

Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A02E 

MPDOSK1 

XLSR 

In D1.W = 68000 status register 

The LOAD STATUS REGISTER primitive allows you to directly load the 
68000 status register. Of course, only appropriate bits (i.e. the interrupt mask too 
high, supervisor mode, trace mode, etc.) are to be set so that the system is not 
crashed. 

XRSR - Read Status Register 
XSUP - Enter Supervisor Mode 

None 


MOVE . W 

SR, Dl 

; READ STATUS 

ORI.W 

#$2000, D1 

; ADD SUPERVISOR 

XLSR 


; LOAD SR 
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XLST 

List File Directory 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


$A0A4 

MPDOSM 


XLST 

<status error retuno 
In (Al) = List specifications 

The LIST FILE DIRECTORY subroutine causes PDOS to output a formatted 
file directory listing to the console terminal, according to the select string 
pointed to by address register Al. The output may be interrupted at any time by 
a character being entered on the console port. An Esc character returns control 
to the PDOS monitor. 


The format of the list specifications is defined as follows: 


DC . B ' { file} { :ext } { /level} { /disk} { /select . . . } ' , 0 
where: {file} = 1 to 8 characters (1st alpha) (@=all, *=wild) 

{:ext} = 1 to 3 characters ( : §=all, *=wild) 

{/level} = directory level (/@=all) 

{/disk} = disk number ranging from 0 to 255 
{/select} = /AC = Assign Console file 
/BN = Binary file 
/BX = PDOS BASIC token file 
/EX = PDOS BASIC file 
/OB = 68000 PDOS object file 
/SY = System file 
/TX = Text file 
/DR = System I/O driver 
/*- = Delete protected 
/** = Delete and write protected 
/Fdy-mon-yr = selects files with date of 
last change greater than 
or equal to "dy-mon-yr" 
/Tdy-mon-yr = selects files with date of 
last change less than or 
equal to "dy-mon-yr" 


Disk Errors 


MLST 

XGNP 

/GET SELECT LIST 


XLST 

/CALL FOR LIST 


BNE.S ERROR 

/ERROR 


XEXT 

/EXIT TO MONITOR 
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XNOP 

Open Shared Random File 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 


$A0DA 

MPDOSF 

XNOP 

<status error retum> 

In (Al) = File name 

Out DO.W = File attribute 

Dl.W = FileID 

Uses multiple directory file search. 

You MUST lock and position file before each multi-task access. 

The OPEN SHARED RANDOM FILE primitive opens a file for shared random 
access by assigning the file to an area of system memory called a file slot. The 
file ID and file attribute are returned to the calling program in registers D1 and 
DO, respectively. Thereafter, the file is referenced by the file ID and not by the 
file name. A new entry in the file slot table is made only if the file is not already 
opened for shared access. 

The file ID (returned in register Dl) is a 2-byte number. The left byte is the disk 
number and the right byte is the file slot index. The file attributes are returned in 
register DO. 

DO.W = (ABOS BETU xxxx xCWD) 

Dl.W = (Disk #) x 256 + (file slot index) 

The END-OF-FILE marker on a shared file is changed only when the file has 
been extended. All data transfers are buffered through a channel buffer; data 
movement to and from the disk is by full sectors. 

An “opened count” is incremented each time the file is shared-opened and is 
decremented by each close operation. The file is only closed by PDOS when the 
count is zero. This count is saved in the right byte erf the locked file parameter 
(LF) and is listed by the file slot usage command (FS). 

50 = Bad File Name 
53 = File Not Defined 

60 = File Space Full 

61 = File Already Open 

68 = Not PDOS Disk 

69 = Out of File Slots 
Disk errors 


/ 0 ~ 

i ; 


/f> \ 

'ey 


/i #~>\ 
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XNOP - Open Shared Random File 
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XPAD 

Pack ASCII Date 


Value: 

Module: 

Syntax: 

Registers: 


Description: 
See Also: 

Possible 

Errors: 

Example: 


$A00A 

MPDOSK3 

XPAD 

In (Al) = ’DY-MON-YR’ 

Out D1.W= (Year*16+month)*32+day 

(YYYY YYYM MMMD DDDD) 
(Al) = Updated 
SR = JEQ. - Conversion okay 
.NE. - Error 


The PACK ASCII DATE primitive converts an ASCII date string to an encoded 
binary number in data register Dl. The result is compatible with other PDOS 
date primitives such as XUAD. 

XFTD - Fix Time And Date 
XRDT - Read Date 
XRTM - Read Time 
XUAD - Unpack ASCII Date 
XUDT - Unpack Date 

Status errors 





STRT 

XPMC 

MESl 

; DATE- 


XGLU 


; GET LINE 


XPAD 


/CONVERT 


BNE 

.S ERR 

/ERROR 


XPMC 

MES2 

/ D 1 . W= 


XCBH 




ADDQ. 

W #4,41 



XPLC 


/OUTPUT 

•k 

BRA. S 

STRT 


ERR 

XPMC 

MES3 

/ERROR 


BRA. S 

STRT 


★ 




MESl 

DC . B 

$0A,$0D, 

' DATE-' , 0 

MES2 

DC . B 

' Dl . W= 

$',0 

MES3 

DC . B 

$0A,$0D, 

' *ERROR' , 0 


EVEN 




END 

STRT 



x>TEST 

DATE-11 -NOV- 86 Dl . W=$ AD 6B 

DATE=1 1N0V8 6 Dl . W=$AD 6B 

DATE= NOV 11 86 

*ERROR 

DATE= 
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XPBC 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


Put Buffer to Console 


$A084 

MPDOSK2 

XPBC 

None 

The PUT USER BUFFER TO CONSOLE primitive outputs the ASCII contents 
of the user buffer to the user console and/or SPOOL file. The output string is 
delimited by the null character. The user buffer is the first 256 bytes of the task 
control block and is pointed to by address register A6. 

With the exception of control characters and characters with the parity bit on, 
each character increments the column counter by one. A Backspace ($08) decre- 
ments the counter while a J ($0D) clears the counter. Tabs ($09) are expanded 
with blanks to MOD 8 character zone fields. 

If there are coinciding bits in the unit (UNT$(A6)) and spool unit (SPU$(A6)) 
variables of the TCB, then the processed characters are written to the spool unit 
file slot (SPI$(A6)) and are not sent to the corresponding output ports. If a disk 
error occurs in the spool file, then all subsequent output characters echo as a bell 
until the error is corrected by selecting a different UNIT or resetting the SPOOL 
UNIT. 

XGLB - Get Line In Buffer 
None 


CLINE 

MOVEA.L 

A6, A2 ;GET USER BUFFER PTR 

CLINE2 




MOVE . B 

DO, (A2) + ; LOAD BUFFER, DONE? 


BNE.S 

CLINE2 ;N 


XPBC 

; Y, OUTPUT BUFFER 


RTS 

/CONTINUE 
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XPCB 

Push Command to Buffer 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A04E 

MPDOSM 

XPCB 

In (Al) = Command string 

The PUSH COMMAND TO BUFFER primitive pushes the string pointed to by 
address register Al into the command recall buffer. Since there is a limit cm the 
buffer size, older commands are lost. 

XGNP - Get Next Parameter 

None 
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XPCC 

Put Character(s) to Console 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A086 

MPDOSK2 

XPCC 

In DO.W = Characters) 

The PUT CHARACTER TO CONSOLE primitive outputs one or two ASCII 
characters in data register DO to the user console and/or SPOOL file. The right 
byte (bits 0 through 7) is first and is followed by the left byte (bits 8 through 15) 
if non-zero. If the right byte or both bytes are zero, nothing is output to the con- 
sole. 

With the exception of control characters and characters with the parity bit on, 
each character increments the column counter by one. A Backspace ($08) decre- 
ments the counter while a J ($0D) clears the counter. Tabs ($09) are expanded 
with blanks to MOD 8 character zone fields. 

If there are coinciding bits in the unit (UNT$(A6)) and spool unit (SPU$(A6)) 
variables of the TCB, then the processed characters are written to the spool unit 
file slot (SPI$(A6)) and are not sent to the corresponding output ports. If a disk 
error occurs in the spool file, then all subsequent output characters echo as a bell 
until the error is corrected by selecting a different UNIT or resetting the SPOOL 
UNIT. 

XPCR - Put Character Raw 
XPDC - Put Data To Console 

None 


MOVE . W 

#'C A ' , DO 

/OUTPUT ,/s C' 

XPCC 



MOVEQ.L 

#$0A, DO 

/FOLLOWED BY LF 

XPCC 
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XPCL 

Put CRLF to Console 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


$A088 

MPDOSK2 

XPCL 

None 

The PUT CRLF TO CONSOLE primitive outputs the ASCII characters line 
feed <$0D> and carriage return <$0A> to the user console and/or SPOOL file. 
The column counter is cleared. 

If there are coinciding bits in the unit (UNT$(A6)) and spool unit (SPU$(A6)) 
variables of the TCB, then the processed characters are written to the spool unit 
file slot (SPI$(A6)) and are not sent to the corresponding output ports. If a disk 
error occurs in the spool file, then all subsequent output characters echo as a bell 
until the error is corrected by selecting a different UNIT or resetting the SPOOL 
UNIT. 

None 


XPCL 

/OUTPUT CRLF 
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XPCP 

Place Character in Port Buffer 


Value: 

Module: 

Syntax: 

Registers: 


Description: 

Example: 


$AOBC 

MPDOSK2 

XPCP 

In D0.B = Character to insert 

Dl.W = Input port number (1 to 15) 

Out SR = .EQ. = High water (character is inserted) 

HE. = Character is inserted 

XPCP allows a character to be placed into the input buffer of any PDOS port 
from a task or program. 


START 

LEA. L STRING (PC) , AO /ADDRESS OF STRING 1 

* 

MOVE . W #3,D1 /PLACE IN PORT 

3 INPUT BUFFER 

LOOP 

MOVE . B (AO) + , DO /GET CHAR, TEST 

FOR 0? 


BEQ . S DONE /Y 

XPCP /PUT INTO PORT 

3 INPUT 

★ 

BRA.S LOOP 


DONE 

* 

XEXT 


STRING 

DC.B f HELLO PORT 3!',0 


* 

EVEN 


END START 


>MASM 

TEST: SR, TEST J 


>TESTJ 


>TM 3, 

2 HELLO PORT 3!Ctrl BJ 


> 




Once the status returns EQ (high water), subsequent XPCP calls will return a 
status of NE as if everything were normal, but die data is discarded. Once the 
status of EQ is detected, the transmitting task should monitor the status of the 
port with the XRPS (read port status) call until bit 6 is cleared. 

The port specified in the XPCP call is independent of windowing — it refers to 
the physical port, not the logical port. 
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XPCR 

Put Character Raw 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 


$A0BA 

MPDOSK2 

XPCR 

In D0.B = CHARACTER 

The PUT CHARACTER RAW primitive outputs the character in the lower byte 
of data register DO to the user console. No attempt is made by PDOS to interpret 
control characters. 

XPCC - Put Characters) To Console 
XPDC - Put Data To Console 

None 
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XPDC 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


Put Data to Console 


$A096 

MPDOSK2 

XPDC 

In D7.W = LENGTH 

(Al) = DATA STRING 

The PUT DATA TO CONSOLE primitive outputs data-independent bytes to the 
console. Address register A1 points to the string while data register D7 has the 
string length. 

If there are coinciding bits in the unit (UNT$(A6)) and spool unit (SPU$(A6)) 
variables of the TCB, then the processed characters are written to the spool unit 
file slot (SPI$(A6)) and are not sent to the corresponding output ports. If a disk 
error occurs in the spool file, then all subsequent output characters echo as a bell 
until the error is corrected by selecting a different UNIT or resetting the SPOOL 
UNIT. 

XPCC - Put Character^) To Console 
XPCR - Put Character Raw 

None 



MOVEQ.L 

#0, D7 


LEA. L 

M (PC) , Al /POINT TO STRING 


MOVE . B 

(A1 ) +, D7 /GET LENGTH 


XPDC 

/OUTPUT 

M 

DC . B 

10,$0A,$0D 


DC . B 

'THIS IS A MESSAGE' 
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XPEL 

Put Encoded Line to Console 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A06E 

MPDOSK2 

XPEL 

In (Al) = Message 

The PUT ENCODED LINE TO CONSOLE primitive outputs to the user con- 
sole the message pointed to by address register Al. An encoded message is 
similar to any other string with the exception that the parity bit is used to output 
blanks and the character $80 outputs a carriage retum/line feed. 

If the parity bit is set and the masked character ($7F) is less than or equal to a 
blank, then the numeric value of the negated character is used as the number of 
blanks to be inserted in the output stream. If the mask character is greater than a 
blank, then that character is output followed by one blank. 

With the exception of control characters, each character increments the column 
counter by one. A Backspace ($08) decrements the counter while a J ($0D) 
clears the counter. Tabs ($09) are expanded with blanks to MOD 8 character 
zone fields. 

If there are coinciding bits in the unit (UNT$(A6)) and spool unit (SPU$(A6)) 
variables of the TCB, then the processed characters are written to the spool unit 
file slot (SPI$(A6)) and are not sent to the corresponding output ports. If a disk 
error occurs in the spool file, then all subsequent output characters echo as a bell 
until the error is corrected by selecting a different UNIT or resetting the SPOOL 
UNIT. 

XPEM - Put Encoded Message To Console 
XPLC - Put Line To Console 
XPMC - Put Message To Console 

None 



LEA. L 

M (PC) , Al ;POINT TO MESSAGE 


XPEL 

; OUTPUT MESSAGE 

M 

DC . B 

$80 t ' Lev' , -2, ' Name: ext ' 


DC . B 

-6, ' Type' , -6, ' Size' , -6 


DC . B 

' Dat' , -' e' , ' created' , -4 


DC . B 

' Las' , -' t' , ' update' , 0 
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f 

( 


XPEL - Put Encoded Line to Console 






XPEM 

Put Encoded Message to Console 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A09C 
MPDOSK2 
XPEM <message> 

None 

The PUT ENCODED MESSAGE TO CONSOLE primitive outputs the PC rela- 
tive message contained in the word following the call to the user console. An en- 
coded message is similar to any other string with the exception that the parity bit 
is used to output blanks and the character $80 outputs a carriage retum/line feed. 

If the parity bit is set and the masked character ($7F) is less than or equal to a 
blank, then the numeric value of the negated character is used as the number of 
blanks to be inserted in the output stream. If the mask character is greater than a 
blank, then that character is output followed by one blank. 

With the exception of control characters, each character increments the column 
counter by one. A Backspace ($08) decrements the counter while a J ($0D) 
clears the counter. Tabs ($09) are expanded with blanks to MOD 8 character 
zone fields. 

If there are coinciding bits in the unit (UNT$(A6)) and spool unit (SPU$(A6)) 
variables of the TCB, then the processed characters are written to the spool unit 
file slot (SPI$(A6)) and are not sent to the corresponding output ports. If a disk 
error occurs in the spool file, then all subsequent output characters echo as a bell 
until the error is corrected by selecting a different UNIT or resetting the SPOOL 
UNIT. 

XPEL - Put Encoded Line To Console 
XPLC - Put Line To Console 
XPMC - Put Message To Console 

None 



XPEM 

MES01 /OUTPUT MESSAGE 

MES01 

DC .B 

$80, ' Lev' , -2, 'Name: ext' 


DC . B 

-6, ' Type' , -6, ' Size' , -6 


DC . B 

' Dat' , -' e' , ' created' , -4 


DC . B 

' Las' , -' t' , 'update' , 0 

$80 = 

Carriage 

return/line feed 
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XPLC 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


Put Line to Console 


$A08A 

MPDOSK2 

XPLC 

In (Al) = ASCH string 

The PUT LINE TO CONSOLE primitive outputs the ASCII character string 
pointed to by address register Al to the user console and/or SPOOL fde. The 
string is delimited by the null character. 

With the exception of control characters and characters with the parity bit on, 
each character increments the column counter by one. A Backspace ($08) decre- 
ments the counter while a J ($0D) clears the counter. Tabs ($09) are expanded 
with blanks to MOD 8 character zone fields. 

If there are coinciding bits in the unit (UNT$(A6)) and spool unit (SPU$(A6)) 
variables of the TCB, then the processed characters are written to the spool unit 
file slot (SPI$(A6)) and are not sent to the corresponding output ports. If a disk 
error occurs in the spool file, then all subsequent output characters echo as a bell 
until the error is corrected by selecting a different UNIT or resetting the SPOOL 
UNIT. 

XPEL - Put Encoded Line To Console 
XPEM - Put Encoded Message To Console 
XPMC - Put Message To Console 

None 



LEA. L 
XPLC 

MESl (PC) , Al 

/OUTPUT MESSAGE 


MOVE . L 

XCBD 

XPLC 

NUMB (PC) ,D1 

/GET NUMBER 
/CONVERT TO DECIMAL 
/OUTPUT 

NUMB 

DS.L 

1 

/NUMBER HOLDER 

MESl 

DC . B 
DC . B 

$0A, $0D 
'ANSWERS , 0 

/MESSAGE #1 
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XPMC 


Put Message to Console 

Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A08C 
MPDOSK2 
XPMC <message> 

None 

The PUT MESSAGE TO CONSOLE primitive outputs the ASCII character 
string pointed to by the message address word immediately following the PDOS 
call to the user console and/or SPOOL file. The address is a PC relative 16-bit 
displacement to the message. The output string is delimited by the null character. 

With the exception of control characters and characters with the parity bit on, 
each character increments the column counter by one. A Backspace ($08) decre- 
ments the counter while a J ($0D) clears the counter. Tabs ($09) are expanded 
with blanks to MOD 8 character zone fields. 

If there are coinciding bits in the unit (UNT$(A6)) and spool unit (SPU$(A6)) 
variables of the TCB, then the processed characters are written to the spool unit 
file slot (SPI$(A6)) and are not sent to the corresponding output ports. If a disk 
error occurs in the spool file, then all subsequent output characters echo as a bell 
until the error is corrected by selecting a different UNIT or resetting the SPOOL 
UNIT. 

XPEL - Put Encoded Line To Console 
XPEM - Put Encoded Message To Console 
XPLC - Put Line To Console 

None 


XPMC 

MES2 

; OUTPUT HEADER 

MES2 

DC . B 

$0A, $0D /HEADER MESSAGE 


DC . B 

'PDOS REV 3,0' , 0 
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XPSC 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 


Position Cursor 


$A08E 

MPDOSK2 

XPSC 

In Dl.B = Row 

D2.B = Column 

Uses PSC$(A6) as lead characters. 

The POSITION CURSOR primitive positions the cursor on the console terminal 
according to the row and column values in data registers D1 and D2. Register 
D1 specifies the row on the terminal and generally ranges from 0 to 23, with 0 
being the top row. Register D2 specifies die column of the terminal and ranges 
from 0 to 79, with 0 being the left-hand column. Register D2 is also loaded into 
the column counter reflecting the true column of the cursor. 

PSC$(A6)= B 1 1 1 1 1 1 1 0222 2222 

B = 0 then $00 bias; =1 then $20 bias 

0 = 0 send row first then column 

1 send column then row 

1 = 7 bits for first ASCII lead in character 

2 = 7 bits for second ASCII lead in character 

The XPSC primitive outputs either one or two leading characters followed by 
the row and column. The leading characters output by XPSC are located in 
PSC$(A6) of the task control block. These characters are transferred from the 
parent task to the spawned task during creation. The initial characters come 
from the BIOS module. 

If the high bit is set in the PSC$.W then the row and column characters are 
biased by $20; otherwise, they have a zero bias. If the parity bit in the low order 
byte is zero, then the sending order is row/column; otherwise, it is reversed. 

If PSC$ is zero or if the first byte equals $FF, then PDOS makes a call into the 
BIOS for custom position cursor with a $20 bias. The entry point is B_PSC 
beyond the BIOS table. If the high order byte of PSC$ is -1, PDOS makes a call 
into the BIOS at B_PSC beyond byte of PSC$ and executes the proper code 
depending on the value found in the low order byte. 

The MTERM utility is used to change the position cursor codes. MTERM will 
not handle calls to the BIOS for custom position cursor. 

XCLS - Clear Screen 

XRCP - Read Port Cursor Position 

BIOS in PDOS Developer’s Reference Manual 
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XPSC - Position Cursor 


C 


Possible 

Errors: 


None 


Example: 


OUTM 

MOVEQ.L #23, D1 

/POSITION TO BOTTOM 


CLR.L D2 

; OF SCREEN 


XPSC 

/POSITION 


XPMC MESl 

/OUTPUT MESSAGE 


L . J 


''itV 
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XPSF 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


Position File 


$A0DC 

MPDOSF 

XPSF 

<status error retum> 

In Dl.W = File ID 

D2.L = Byte position 

A byte position equal to -1 positions to the end of the file. 

The POSITION FILE primitive moves the file byte pointer to any byte position 
within a file. The file ID is given in register D1 and the long word byte position 
is specified in register D2. 

An error occurs if the byte position is greater than the current end-of-file marker. 

A contiguous file gready enhances the speed of the position primitive since the 
desired sector is directly computed. However, the position primitive does work 
with non-contiguous files, as PDOS follows the sector links to the desired byte 
position. 

A contiguous file is extended by positioning to the end-of-file marker and writ- 
ing data. However, PDOS will alter the file type to non-contiguous if a con- 
tiguous sector is not available. This would result in random access being much 
slower. 

XRFP - Read File Position 
XRWF - Rewind File 

52 = File Not Open 
59 = Bad File Slot 
70 = Position EOF 
Disk errors 


MOVE . W 

D5, Dl 

;GET FILE ID 

MOVE . W 

RN (AO ) ,D2 

;GET RECORD # 

MULU.W 

#36, D2 

;GET BYTE INDEX 

XPSF 


/POSITION WITHIN FILE 

BNE.S 

ERROR 


RN DS.W 

1 

/RECORD # 
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XPSP 


Put Space to Console 

Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A098 

MPDOSK2 

XPSP 

None 

The PUT SPACE TO CONSOLE outputs a Space ($20) character to the user 
console. There are no registers or status involved. 

If there are coinciding bits in the unit (UNT$(A6)) and spool unit (SPU$(A6)) 
variables of the TCB, then the processed characters are written to the spool unit 
file slot (SPI$(A6)) and are not sent to the corresponding output ports. If a disk 
error occurs in the spool file, then all subsequent output characters echo as a bell 
until the error is corrected by selecting a different UNIT or resetting the SPOOL 
UNIT. 

XPCC - Put Character(s) To Console 
None 


MOVEQ.L 

#N,D1 

; GET NUMBER 

XCBM 

MES01 

/CONVERT 

XPLC 


/OUTPUT LINE 

XPSP 


/OUT SPACE 
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XRBF 

Read Bytes From File 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A0DE 

MPDOSF 

XRBF 

<status error retum> 

In D0.L = Number of bytes 

Dl.W = File ID 
(A2) = R/W buffer address 
Out D3.L = Number of bytes read 

(On EOF only) 

The READ BYTES FROM FILE primitive reads the number of bytes specified 
in register DO from the file specified by the file ID in register D1 into a memory 
buffer pointed to by address register A2. If the channel buffer has been rolled to 
disk, the least-used buffer is freed and the desired buffer is restored to memory. 
The file slot ID is placed on the top of the last-access queue. 

If an error occurs during the read operation, the error return is taken with the 
error number in register DO and the number of bytes actually read in register D3. 

The read is independent of the data content. The buffer pointer in register A2 is 
on any byte boundary. The buffer is not terminated with a null. 

A byte count of zero in register DO results in one byte being read from the file. 
This facilitates single byte data acquisition. 

XRLF - Read Line From File 
XWBF - Write Bytes To File 
XWLF - Write Line To File 

52 = File Not Open 
56 = End Of File 
59 = Bad File Slot 
Disk errors 



MOVE . L 

#256, DO 

/READ 256 BYTES 


MOVE . W 

D5,D1 

/GET FILE ID 


MOVE A. L 

A6,A2 

/READ INTO USER BUF 


XRBF 


/READ DATA 


BNE.S 

ERROR 


ERROR 

CMP I . W 

#56, DO 

/EOF? 


BNE.S 

ERROR2 

;N 


MOVE . L 

D3, DO 

/Y, GET # OF BYTES READ 


— 
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XRCN 

Reset Console Inputs 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A0B2 

MPDOSF 

XRCN 


None 

The RESET CONSOLE INPUTS closes the current procedure file. If there are 
other procedure files pending (nested), then they become active again. 

XCBC - Check For Break Character 

None 


DONE XRCN 


; CLOSE FILES 
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XRCP 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


Read Port Cursor Position 


$A092 

MPDOSK2 

XRCP 

In DO.W = Port # 

Out Dl.L = Row 

D2.L = Column 

If D0.W=0, then the current port (PRT$(A6)) is used. 

The READ PORT CURSOR POSITION primitive reads the current cursor posi- 
tion for the port designated by data register D0.B. The PDOS system maintains 
a column count (0-79) and a row count (0-23) for each port When the cursor 
reaches row 23, the count is not incremented, acting like a screen scroll. 

XCLS - Clear Screen 
XPSC - Position Cursor 

None 


MOVEQ.L #1 , DO 

; LOOK AT PORT 1 

XRCP 

; READ POSITION 

SWAP D1 


MOVE . W D2,D1 

;D1.L=Y/X POSITION 
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XRDE 

Read Next Directory Entry 


Value: 

Module: 

Syntax: 

Registers: 


Description: 


Possible 

Errors: 

Example: 


$A0A6 

MPDOSF 

XRDE 

<status error retum> 

In D0.B = Disk number 

Dl.B = Read flag (0=lst) 

(A2) = Last 32 byte directory entry 
TW1$ = Sector number 
TW2$ = number of directory entries 
Out Dl.W = Sector number 

(A2) = Next entry 

The READ NEXT DIRECTORY ENTRY primitive reads sequentially through 
a disk directory. If register D1.B is zero, then the routine begins with the first 
directory entry. If register Dl.B is nonzero, then based on the last directory 
entry (pointed to by register A2), the next entry is read. 

The calling routine must maintain registers DO.B and A2, the user I/O buffer, 
and temporary variables TW1$ and TW2$ of the task control block between 
calls to XRDE. 

53 - File Not Defined (end of directory) 

68 = Not PDOS Disk 
Disk errors 


START 

MOVEQ.L 

#0, D1 

/BEGIN WITH 1ST ENTRY 

★ 

BRA. S 

LOOP 02 


LOOP 

MOVEQ.L 

#-l,Dl 

/READ NEXT ENTRY 

LOOP 02 

MOVE . W 

D5, R0 

/GET DISK # 


XRDE 


/READ DIRECTORY ENTRY 


BNE.S 

ERROR 

/ERROR 


MOVE . B 

12 (A2) , R4 

/GET FILE TYPE 
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XRDM 

Dump Registers 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A02A 
MPDOSK1 
XRDM 
In All 

The DUMP REGISTERS primitive formats and outputs all the current register 
values of the 68000 to the user console along with the program counter, status 
register, and the supervisor stack. It also outputs the VBR register on 68010/20 
systems. 

The registers and status are not affected by this primitive. 

XBUG - Debug Call 

XDMP - Dump Memory From Stack 

PD OS Monitor, Editor, Utilities manual 

None 


MOVEM.L RL, (A7) + 

/RESTORE REGISTERS 

XRDM 

/DUMP RESULTS 
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XRDN 

Read Directory Entry by Name 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A0A8 

MPDOSF 

XRDN 

<status error retum> 

In DO.B = Disk number 
MWB$ = File name 

Out Dl.W = Sector number in memory 

(A2) = Directory entry 
TW2$ = Entry count 

The READ DIRECTORY ENTRY BY NAME primitive reads directory entries 
by file name. Register D0.B specifies the disk number. The file name is located 
in the Monitor Work Buffer (MWB$) in a fixed format Several other 
parameters are returned in the monitor TEMP storage of the user task control 
block. These variables assist in the housekeeping operations on the disk direc- 
tory. 

XFFN - Fix File Name 

53 = File Not Defined 
68 = Not PDOS Disk 
Disk errors 




/ iT\ 


OPENF 

LEA. L 

FN (PC) ,Al 

;GET FILE NAME POINTER 


XFFN 


;FIX NAME IN MWB 


BNE.S 

ERROR 

; ERROR 


XRDN 


; READ DIRECTORY ENTRY 


BNE.S 

ERROR 

; ERROR 


— 




(f> 
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XRDT 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 


Possible 

Errors: 

Example: 


Read Date 


$A05C 

MPDOSK3 

XRDT 

Out (Al) = ’MN/DY/YR’<null> 

The READ DATE primitive returns the current system date as a nine character 
string. The format is“MN/DY/YR” followed by a null. Address register Al 
points to the string in the monitor work buffer. 

XFTD - Fix Time And Date 
XPAD - Pack ASCII Date 
XRTM - Read Time 
XU AD - Unpack ASCII Date 
XUDT - Unpack Dale 
XUTM - Unpack Time 

None 


GETD 

XPMC 

MESl 

/OUTPUT PROMPT 


XRDT 


/GET DATE 


XPLC 


/OUTPUT TO SCREEN 

MESl 

DC .B 

' DATE= f 

,0 
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XRFA 

Read File Attributes 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A0E0 

MPDOSF 

XRFA 

<status error retum> 

In (Al) = File name 

Out (A2) = Directory entry 

DO.L = Disk number 
DU = File size (in bytes) 

D2.L = Level/attributes 

Uses multiple directory file search. 

The READ FILE ATTRIBUTES primitive returns the disk number of where the 
file was found in data register D0.L. Data register DU is returned with the size 
of the file in bytes. The file directory level is returned in the upper word of 
register D2.L and the file attributes are returned in register D2.W. The file name 
is pointed to by address register Al. File attributes are defined as follows: 



XCFA - Close File With Attribute 
XWFA - Write File Attributes 
XWFP - Write File Parameters 


50 = Bad File Name 
53 = File Not Defined 
60 = File Space Full 
Disk errors 



LEA. L 

FN (PC) ,A1 

;GET FILE NAME 


XRFA 


; READ FILE ATTRIBUTES 


BNE.S 

ERROR 

; PROBLEM 


LRL.W 

#2,D2 

/BINARY FILE? 


BCC.S 

PNO 

;N 


— 


;Y 

FN 

DC .B 

' PRGM:BIN f 

,0 


EVEN 




( '■ J 


/iO. 

W 
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XRFP 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


Read File Position 


$A0FE 

MPDOSF 

XRFP 

<status error retum> 

In Dl.W = File ID 

Out (A3) = File slot address 

D2.L = Byte position 
D3.L = EOF byte position 

The READ FILE POSITION primitive returns the current file position, end-of- 
file position, and file slot address. The open file is selected by the file ID in data 
register Dl.W. 

Address register A3 is returned pointing to the open file slot Data registers 
D2.L and D3.L are returned with the current file byte position and the end-of- 
file position respectively. 

XPSF - Position File 
XRWF - Rewind File 

52 = File Not Open 
59 = Bad File Slot 
Disk errors 


MOVE . W 

D5,D1 

;GET FILE ID 

XRFP 


/READ FILE POSITION 

BNE.S 

ERROR 


— 
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XRLF 

Read Line From File 


Value: 

Module: 

Syntax: 


$A0E2 

MPDOSF 

XRLF 

<status error retum> 


Registers: 


Description: 


See Also: 


Possible 

Errors: 


Example: 


In Dl.W = FileID 

(A2) * R/W buffo address 
Out D3.L = # of bytes read 

(On EOF only) 

The READ LINE primitive reads one line, delimited by a carriage return J, 
from the file specified by the file ID in register Dl. If a J is not encountered 
after 132 characters, then the line and primitive are terminated. Address register 
A2 points to the buffer in user memory where the line is to be stored. If the chan- 
nel buffer has been rolled to disk, the least-used buffer is freed and the buffer is 
restored to memory. The file slot ID is placed on the top of the last-access queue. 

If an error occurs during the read operation, the error return is taken with the 
error number in register DO and the number of bytes actually read in register D3. 

The line read is dependent upon the data content All line feeds (i) are dropped 
from the data stream and the J is replaced with a null. The buffer pointer in 
register A2 may be on any byte boundary. The buffer is not terminated with a 
null on an error return. 

XRBF - Read Bytes From File 
XWBF - Write Bytes To File 
XWLF - Write Line To File 

52 = File Not Open 
56 = End of File 
59 = Bad File Slot 
Disk errors 





/f^N 

i '■ 



MOVE . W 

D5,Dl 

;GET FILE ID 


LEA.L 

BF (PC) ,A2 

;GET BUFFER POINTER 


XRLF 


; READ LINE 


BNE . S 

ERROR 


BF 

DS.B 

132 

/MAXIMUM BUFFER NEEDED 


f 

0 
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XRNF 

Rename File 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A0E4 

MPDOSF 

XRNF 

<status error retum> 

In (Al) = Old file name 

(A2) = New file name or level number 

The RENAME FILE primitive renames a file in a PDOS disk directory. The old 
file name is pointed to by address register Al. The new file name or level is 
pointed to by address register A2. 

The XRNF primitive is used to change the directory level for any file by letting 
the new file name be a numeric string equivalent to the new directory level. 
XRNF first attempts a conversion on the second parameter before renaming the 
file. If the string converts to a number without error, then only the level of the 
file is changed. 

XDFL- Define File 
XDLF- Delete File 

50 = Bad File Name 

51 = File Already Defined 
Disk errors 



LEA. L 

Fl (PC) , Al ;GET OLD FILE NAME 


LEA. L 

F2 (PC) ,A2 ; GET NEW FILE NAME 


XRNF 

/RENAME FILE 


BNE.S 

ERROR /PROBLEM 


MOVE A. L 

A2, Al /POINT TO NEW NAME 


LEA. L 

LV (PC) , A2 /GET NEW LEVEL 


XRNF 

/CHANGE DIRECTORY LEVEL 


BNE.S 

ERROR 

LV 

DC . B 

o 

o 

\ — i 

FI 

DC .B 

' OBJECT : OLD ' , 0 

F2 

DC .B 
EVEN 

'OBJECT: NEW' , 0 
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XROO 

Open Random Read Only File 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


$A0E6 

MPDOSF 

XROO 

<status error retum> 

In (Al) = File name 

Out DO.W = File attribute 

Dl.W = FileID 

Uses multiple directory file search. 

The OPEN RANDOM READ ONLY FILE primitive opens a file for random ac- 
cess by assigning the file to an area of system memory called a file slot, and 
returning a file ID and file attribute to the calling program. Thereafter, the file is 
referenced by the file ID and not by the file name. This type of file open 
provides read only access. 

The file ID (returned in register Rl) is a 2-byte number. The left byte is the disk 
number and the right byte is the channel buffer index. The file attribute is 
returned in register DO. 

Dl.W = (Disk #) x 256 + (File slot index) 

DO.W = (ABOS BETD xxxx xCWD) 

Since the file cannot be altered, it cannot be extended nor is the LAST UPDATE 
parameter changed when it is closed. All data transfers are buffered through a 
channel buffer and data movement to and from the disk is by full sectors. 

A new file slot is allocated for each XROO call even if the file is already open. 
The file slot is allocated beginning with slot 1 to 32. 

50 = Bad File Name 
53 = File Not Defined 
61 = File Already Open 

68 = Not PDOS Disk 

69 = Out of File Slots 
Disk errors 



LEA. L 

HLPFN (PC) ,A1 

; POINT TO FILE NAME 


XROO 


;OPEN FILE 


BNE. S 

ERROR 


HELP 02 

MOVEA.L 

A6,A2 

;GET BUFFER 


XRLF 


/READ LINE 


BNE. S 

SHWF22 


HLPFN 

DC.B 

' HLPTX' , 0 



V A>'' 





c 
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XROP 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


Open Random File 


$A0E8 

MPDOSF 

XROP 

<status error retum> 

In (Al) = File name 

Out DO.W = File attribute 

Dl.W = FileID 

Uses multiple directory file search. 

The OPEN RANDOM FILE primitive opens a file for random access by assign- 
ing the file to an area of system memory called a file slot, and returning a file ID 
and file attribute to the calling program. Thereafter, the file is referenced by the 
file ID and not by the file name. 

DO.W = (ABOS BETU xxxx xCWD) 

Dl.W = (Disk #) x 256 + (File slot index) 

The file ID (returned in register Dl) is a 2-byte number. The left byte is the disk 
number and the right byte is the channel buffer index. The file attribute is 
returned in register DO. 

The END-OF-FILE marker on a random file is changed only when the file has 
been extended. All data transfers are buffered through a channel buffer and data 
movement to and from the disk is by full sectors. 

The file slot is allocated beginning with slot 32 to slot 1. If the file is already 
open, then the file slot is shared. 

50 = Bad File Name 
53 = File Not Defined 
61 = File Already Open 

68 = Not PDOS Disk 

69 = Out of File Slots 
Disk errors 


LEA. L 

FN (PC) , Al ;GET FILE NAME 

XROP 

; OPEN RANDOM FILE 

BNE.S 

ERROR ; ERROR 

MOVE . W 

DO, D5 ; SAVE TYPE 

SWAP 

D5 

MOVE . W 

D1,D5 ; SAVE FILE ID 

FN DC . B 

'FILENAME: EXT' , 0 

EVEN 
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XRPS 


Read Port Status 

Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A094 

MPDOSK2 

XRPS 

<status error retum> 

In DO.W = Port number 

Out D1.L = ACI$.W / portflag.B / Status.B 

If DO. W=0, then the current port (PRT$(A6)) is used. 

The READ PORT STATUS primitive reads the current status of the port 
specified by data register DO.W. The high order word of data register D1.L is 
returned zero if no procedure file is open. Otherwise, it is returned with ACI$. 

The low order word is returned with the port flag bits and the status as returned 
for the port UART routine. The flag bits indicate if eight bit I/O is occurring, if 
DTR or Ctrl S Ctrl Q protocol is in effect, and other flags. 

f portflag. = fwpi 8dcs \ 
\\\\ \\\\_ 0 = Ctrl S Ctrl Q enable 
\\\\ \\\_ 1 = Ignore control character 
\\\\ \\_ 2 = DTR enable 
\\\\ \_ 3 = 8-bit character enable 

\\\\ 4 = Receiver interrupt disable 

\\\ 5 = Even parity enable 

\\ 6 = (Reserved) 

, \ 7 = (Reserved) 


XBCP - Baud Console Port 
XSPF- Set Port Flag 

66 = Bad Port/Baud Rate 


MOVEQ.L 

o 

Q 

o 

;LOOK AT CURRENT PORT 

XRPS 



BNE.S 

ERROR 


BTST.B 

#0,D1 

; A S A Q? 

BNE.S 

CSCQ 

;Y 
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XRSE 

Read Sector 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A0C2 

MPDOSF 

XRSE 

<status error retum> 

In DO.B = Disk number 
Dl.W = Sector number 
(A2) = Buffer pointer 

The READ SECTOR primitive calls a system-defined, hardware-dependent 
program which reads 256 bytes of data into a memory buffer pointed to by ad- 
dress register A2. The disk is selected by data register DO. Register D1 specifies 
the logical sector number to be read. 

BIOS in PDOS Developer’ s Reference Manual 
XISE - Initialize Sector 
XRSZ - Read Sector Zero 
XWSE- Write Sector 

Disk errors 



CLR.W 

DO 

/SELECT DISK #0 


MOVEQ . L 

#2,D1 

/SELECT SECTOR 2 


LEA. L 

BUFF (PC) , A2 

/POINT TO BUFFER 


XRSE 


/READ INTO BUFFER 


BNE.S 

XERR 

/ERROR 

XERR 

XERR 


/DISK ERROR 

BUFFER 

DS.B 

256 

/BUFFER 
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XRSR 

Read Status Register 



Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A042 

MPDOSK1 

XRSR 

Out DO.W = 68000 status register 

The READ STATUS REGISTER primitive allows you to read the 68000 status 
register. Of course, this is equivalent to the“MOVE.W SR,Dx” instruction on 
the 68000. However, this instruction is privileged on the 68010 and 68020. 

Hence, it is advisable to use the XRSR primitive to read the status register to .■< ’* 

make software upward compatible. 

XLSR - Load Status Register 
XSUP - Enter Supervisor Mode 
XUSP - Return to User Mode 

None 


XRSR /READ SR 

ANDI.W #$0700, DO 






ly 
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XRST 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


Reset Disk 


$A0B4 

MPDOSF 

XRST 

In Dl.W sb-L... Reset by task 
>=0... Reset by disk 

The RESET DISK primitive closes all open files either by task or disk number. 
The primitive also clears the assigned input file ID. If register D1 equals -1, then 
all files associated with the current task are closed. Otherwise, register D1 
specifies a disk and all files opened on that disk are closed. 

XRST has no error return and as such, closes all files even though errors occur 
in the close process. This is necessary to allow for recovery from previous errors. 

XCFA - Close File With Attribute 
XCLF- Close File 

None 


DONE 

MOVEQ . L 

#-l,Dl 

/CLOSE ALL TASK FILES 


XRST 




MOVE . W 

D5 , Dl 

/PREPARE TO REMOVE DISK 


XRST 


/CLOSE ALL FILES 


— 


/REMOVE DISK 
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XRSZ 

Read Sector Zero 

Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A0C4 

MPDOSF 

XRSZ 

<status error retum> 

In DO.B = Disk number 

Out D1.L = 0 

(A2) = User buffer pointer (A6) 

The READ SECTOR ZERO primitive is a system-defined, hardware-dependent 
program which reads 256 bytes of data into the user memory buffer (usually 
pointed to by address register A6). The disk is selected by data register DO.W. 
Register D1 .L is cleared and logical sector zero is read. 

BIOS in PD OS Developer' s Reference Manual 
XISE - Initialize Sector 
XRSE - Read Sector 
XWSE - Write Sector 

Disk errors 





/f 


MOVEQ.L 

#1,D0 

/SELECT DRIVE 1 

XRSZ 


/READ HEADER 

BNE.S 

ERROR 


XPBC 


/PRINT DISK NAME 




c 

c 
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XRTE 

Return From Interrupt 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


$A044 

MPDOSK1 

XRTE 

In SSP = Status register. W 
Program counter .L 

The RETURN FROM INTERRUPT primitive is used to return from an interrupt 
process routine with a context switch. This allows an immediate rescheduling of 
the highest priority ready task which may be suspended pending the occurrence 
of an event set by the interrupt routine. It also allows a return from an interrupt 
to awaken a specific task regardless of higher priority tasks. To signal XRTE to 
return to a specific task, the interrupt routine sets the task number into byte 
TQUX.(A5) in the system SYRAM. 

If the interrupted system is locked when the XRTE primitive is executed, then 
the reschedule flag (RFLG.(A5)) is cleared and a return from exception instruc- 
tion (RTE) is executed. When the system clears the task lock, RFLG. is tested 
and set (TAS) and a rescheduling occurs at that time. 

None 


MOVEQ.L #66, Dl 

/PROCESS INTERRUPT 

XSEV 

; SET EVENT 66 

XRTE 

/RETURN FROM INTERRUPT 
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XRTM 

Read Time 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 


Possible 

Errors: 

Example: 


$A05E 

MPDOSK3 

XRTM 

Out (Al)=’HR:MN:SC’<null> 

10(A1).W = Tics/second (B.TPS) 

12(A1).L = Tics (TICS.) 

The READ TIME primitive returns the current time as a nine-character string. 

The format is“HR:MN:SC” followed by a null. Address register A1 points to the ; f v 

string in the monitor work buffer. ^ 

XFTD - Fix Time And Date 
XPAD- Pack ASCII Date 
XRDT - Read Date 
XUAD - Unpack ASCII Date 
XUDT - Unpack Date 
XUTM - Unpack Time 

None ,-f>\ 

w 


GETD 

XPMC 

MESl /OUTPUT PROMPT 


XRTM 

;GET TIME 


XPLC 

/OUTPUT TO SCREEN 

MES1 

DC . B 

f TIME=' , 0 




c 

c 
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XRTP 


Value: 

Module: 

Syntax: 

Registers: 

Description: 
See Also: 


Possible 

Errors: 


Read Time Parameters 


$A034 

MPDOSK1 

XRTP 

Out D0.L = TICS. 

D1.L = MONTH/DAY/YEAR/O 
D2.L = HOURS/MINUTES/SECONDS/O 
D3.L = B.TPS 

The READ TIME PARAMETERS primitive returns the current time 
parameters. Data register DO returns with the current tic count (TICS.(A5)). 
Register D1.L returns with the current date and register D2.L the current time. 
Both are three bytes that are left-justified. Finally, data register D3.L returns 
with the number of clock tics per second. 

XFTD - Fix Time And Date 
XPAD- Pack ASCII Date 
XRDT - Read Date 
XRTM - Read Time 
XUAD - Unpack ASCII Date 
XUDT - Unpack Date 
XUTM - Unpack Time 

None 
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XRTS 

Read Task Status 

Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 




$A012 

MPDOSK1 

XRTS 

<status retum> 

In DO.W = Task number 
Out D1.L = 0 - Not executing 

= +N - Time slice 
= -N - (Event # 1/Event #2) 

A0.L = TLST entry (IF -DO: A0=TLST.) 

SR = Status of D1.L 

If D0.W=-1, then the current task number is returned in DLL. 

The READ TASK STATUS primitive returns in register D1 and the status 
register returns the time parameter of the task specified by register DO. The time 
reflects the execution mode of the task. If D1 returns zero, then the task is not in 
the task list. If D1 returns a value greater than zero, then the task is in the run 
state (executing). If D1 returns a negative value, then the task is suspended pend- 
ing event -(Dl). 

The task number is returned from the CREATE TASK BLOCK (XCTB) primi- 
tive. It can also be obtained by setting data register DO equal to a minus one. In 
this case, register DLL is returned with the current task number. 

XSTP - Set/Read Task Priority 

None 


WAIT 

MOVEQ.L 

42 , DO 

/WAIT TO TASK 0 


XRST 


; TO DIE 


BNE.S 

WAIT 

/STILL GOING 




/DONE 


/f">\ 


/iT\ 
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XRWF 

Rewind File 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A0EA 

MPDOSF 

XRWF 

<status error retum> 

In Dl.W = File ID 

The REWIND FILE primitive positions the file specified by the file ID in 
register Dl, to byte position zero. 

XPSF - Position File 
XRFP - Read File Position 

52 = File Not Open 
59 = Bad File Slot 
Disk errors 


REWIND MOVE . W 

D5,D1 

;GET FILE ID 

XRWF 


/REWIND FILE 

BNE.S 

ERROR 

/PROBLEM 

— 
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XSEF 

Set Event Flag With Swap 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


$A018 

MPDOSK1 

XSEF 

<status retum> 


In D1.B = Event (+=Set(l), -=Clear(0)) 

Out SR = NE....Set 

EQ....Clear 


An XSWP is automatically executed after the event is set or cleared. Event 128 
is local to each task. 


If Dl.B is positive, then the event is set. 

If D1.B is negative, then the event is cleared. 

The SET EVENT FLAG WITH SWAP primitive sets or clears an event flag bit. 
The event number is specified in data register Dl.B and is modulo 128. If the 
content of register D1.B is positive (1 to 127, $01 to $7F), then the event bit is 
set (1). If D1.B is negative (-1 to -127, $FF to $81), the bit is cleared (=0). Event 
128 can only be cleared. (It is set by the delay event list.) 


If the event is 128 ($80) then the task’s local event is cleared. Event zero ($00) 
is illegal to use. The status of the event bit prior to changing the event is 
returned in the status register. If the event was cleared, then the“EQ” status is 
returned; otherwise, if the event was set, then a “NE” status is returned. Also, an 
immediate context switch occurs thus scheduling any higher priority task pend- 
ing on that event. 


r Four types of 
1-63 
64-80 
81-127 
128 

v 


event flags: 

= Software 

= Software self clearing 
= System 
= Local to task 


"\ 


J 
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XSEF - Set Event Flaa with Swa 


See Also: 

Possible 

Errors: 

Example: 



XDE V - Delay Set/Clear Event 
XSEV - Set Event Flag 
XSUI - Suspend Until Interrupt 
XTEF - Test Event Flag 

None 


MOVEQ.L 

#30, Dl 

; SET EVENT 30 

XSEF 


; SET EVENT 

MOVEQ.L 

#-35, D1 

/CLEAR EVENT 35 

XSEF 


/SET EVENT 
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XSEV 

Set Event Flag 


Value: 

Module: 

Syntax: 

Registers: 

te§r > 

Description: 


$A046 

MPDOSK1 

XSEV 

<status retum> 

In D1.B = Event (+=Set(l), -=Clear(0)) 

Out SR = NE....Set 

EQ....Reset 

Event 128 is local to each task. 

If D1.B is positive, then the event is set. 

If D1.B is negative, then the event is reset 

The SET EVENT FLAG primitive sets or clears an event flag bit. The event 
number is specified in data register D1.B and is modulo 128. If the content of 
register D1.B is positive (1 to 127, $01 to $7F), then the event bit is set (=1). If 
Dl.B is negative (-1 to -127, $FF to $811), the bit is cleared (=0). Event 128 can 
only be cleared. (It is set by the delay event list.) Event zero ($00) is illegal to 
use. If the event is 128 ($80) then the task’s local event is cleared. The status of 
the event bit prior to changing the event is returned in the status register. If the 
event was cleared, then the“EQ” status is returned; otherwise, if the event was 
set, then a “NE” status is returned. A context switch DOES NOT occur with this 
call making it useful for interrupt routines outside the PDOS system. 






.*# 



£> 

c 
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XSEV ■ Set Event Flag 


See Also: 


Possible 

Errors: 


XDEV - Delay Set/Reset Event 
XSEV - Set Event Flag 
XSUI - Suspend Until Interrupt 
XTEF - Test Event Flag 

None 


Example: 


MOVEQ.L #30, D1 
XSEV 


; SET EVENT 30 
; SET EVENT 


MOVEQ.L #-35, D1 /CLEAR EVENT 35 
XSEV /SET EVENT 
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XSMP 

Send Message Pointer 


Value: 

Module: 

Syntax: 

Registers: 


Description: 


See Also: 


Possible 

Errors: 

Example: 


$A002 

MPDOSK1 

XSMP 

<status retum> 

In D().B = Message slot number (0..15) 

(Al) = Message 

Out SR = EQ....Message sent (Event[64+slot #]=1) 

NE....N 0 message sent 

D0.L = Error number 62 if message pointer error 

The SEND MESSAGE POINTER primitive sends a 32-bit message to the mes- 
sage slot specified by data register DO.B. Address register Al contains the mes- 
sage. 

If there is still a message pending, then the primitive immediately returns with 
status set“Not Equal” and D0.L returns the error number 62. Otherwise, the mes- 
sage is taken by PDOS event (64 + message slot number) is set (=1) indicating a 
message is ready, and status is retumed“Equal”. 

The primitive XSMP is only valid for message slots 0 through 15. (This is be- 
cause of current event limitations.) 

XGMP - Get Message Pointer 
XGTM - Get Task Message 
XKTM - Kill Task Message 
XSTM - Send Task Message 

62 = Bad Message Ptr Call 



LEA. L 

MESS (PC) , Al 

/LOAD ADDRESS OF MESS INTO 

Al 

AGAIN 

MOVE . B 

#5 , DO 

/POINT TO MESSAGE SLOT #5 



XSMP 


/SEND MESSAGE TO SLOT 5 



BEQ.S 

AROUND 

/MESSAGE SENT 



XWSP 


/MESSAGE PENDING, SO WAIT 

AWHILE 


BRA. S 

AGAIN 

/RETRY 


AROUND 

. 




MESS 

DC . B 

$0A, $0D, 'HELLO 

PDOS USERS' , 0 
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Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 
Example: 


XSOE 

Suspend on Physical Event 


$A112 

MPDOSK1 

XSOE 

In D1 .L = Event 1 Descriptor. w^Event 0 Descriptor, w 

AO = Event 0 address (0=no event 0 to suspend on) 

A1 = Event 1 address (0=no event 1 to suspend on) 

Out DOJL = -1 if awaken on event 0; 1 if awaken on event 1 

This call is the same as XSUI but with physical events. 

XSOE allows a task to suspend on one or two events within the system. Tasks 
that suspend on physical events are listed as suspended on events -1/1. If event 0 
is the scheduling event, a -1 is returned; otherwise, a 1 is returned. 

The event descriptor is a 16-bit word that defines both the bit number at the 
specified A0,A1 address and the action to take on the bit. The following bits are 
defined: 

S ' Bit number — 15 14 13 12 11 10 9876543210 N 
Tx x x x xxxSxxxxBBB 

T = Should the bit be toggled on scheduling? 

l=Yes (toggle) , 0=No (do not toggle) 

S = Suspend on event bit clear or set 

l=Suspend on SET, 0=Suspend on CLEAR 
BBB = The 680x0 bit number to use as an event 
x = Reserved, should be 0. 


Since the bit number is specified in the lower three bits of the descriptor, you 
may use the descriptor with the 680x0 BTST, BCLR, BSET instructions. 

XDPE - Delay On Physical Event 

XTLP - Translate Logical To Physical Event 



MOVE . L 

#$80800081, D1 

; SET DESCRIPTORS 


LEA. L 

PEV (PC) , A0 

; GET PEV ADDRESS 


MOVEA.L 

A0, A1 

; COPY FOR EV1 


MOVE . L 

#100, DO 

; SET TIMEOUT 


BCLR. B 

DO, (Al) 

; CLEAR TIMEOUT EV0 


XDPE 


; START TIMER 


XSOE 


; SUSPEND 

PEV 

DC . W 

0 
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XSOP 

Open Sequential File 




Value: 

Module: 


$A0EC 

MPDOSF 


Syntax: 

Registers: 


Description: 


Possible 

Errors: 


XSOP 

<status error retum> 


In (Al) = File name 

Out DO.W = File attribute 

Dl.W = File ID 

Uses multiple directory file search. 

The OPEN SEQUENTIAL FILE primitive opens a file for sequential access by 
assigning the file to an area of system memory called a file slot and returning a 
file ID and file type to the calling program. Thereafter, the file is referenced by 
the file ID and not by the file name. 

The file ID (returned in register Dl) is a 2-byte number. The left byte is the disk 
number and the right byte is the file slot index. The file attribute is returned in 
DO. 


DO.W = (ABOS BETD xxxx xCDW) 
Dl.W = (Disk #) x 256 + (File slot index) 


r 




ABOS BETD Axxx xCDW 




\\\\ \\\\ \ 
\\\\ \\\\ \ 
\\\\ \\\\ \ 
\\\\ \\\\ \ 
\\\\ \\\\_ 
\\\\ \\\_ 
\\\\ \\_ 
\\\\ \_ 
\\\\_ 

\\\ 

\\_ 

\ 


\\\ $01 - Write Protect 

\\ $02 - Delete Protect 

\ $04 - Contiguous File 

$80 - File Altered 

$01 - Driver 

$02 - ASCII Text File 

$04 - BASIC ASCII File 

$08 - BASIC Token File 

$10 - System Module 

$20 - Object Module 

$40 - Binary File 

$80 - Procedure File 




The END-OF-FILE marker on a sequential file is changed whenever data is writ- 
ten to the file. All data transfers are buffered through a channel buffer; data 
movement to and from the disk is by full sectors. 


The file slots are allocated beginning with slot 32 down to slot 1. 


50 = Bad File Name 
53 = File Not Defined 
61 = File Already Open 

68 = Not PDOS Disk 

69 = Out of File Slots 
Disk errors 
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XSOP - Open Sequential File 


Example: 



LEA. L 

FN (PC) ,A1 

;GET FILE NAME 


XSOP 


/OPEN SEQUENTIAL FILE 


BNE.S 

ERROR 

/ERROR 


MOVE . W 

DO, D5 

/SAVE TYPE 


SWAP 

D5 



MOVE . W 

D1,D5 

/SAVE FILE ID 

FN 

DC . B 

'FILENAME: 

: EXT' , 0 


EVEN 
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XSPF 

Set Port Flag 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A09A 

MPDOSK2 

XSPF 

<status enor retum> 

In DO.W = Port number 

D1.B = Port flag (fwpi8dcs) 

Out D1 .B = Old port flag 

If D0.W=0, then the current port (PRT$(A6)) is used. 

The SET PORT FLAG primitive stores the port flag passed in data register 
D1.B in the port flag register as specified by register DO.W. 

If flag bits“p”,“i”, or“8” change, the BIOS baud port routine is called. 

XBCP - Baud Console Port 
XRPS - Read Port Status 

66 = Bad Port/Baud Rate 





MOVEQ.L 

o 

Q 

o 

; SELECT CURRENT 

MOVEQ.L 

#1,D1 

; A S A Q 

XSPF 
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XSTM 

Send Task Message 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A020 

MPDOSK1 

XSTM 

<status error retum> 

In DO.B = TASK NUMBER 
(Al) = MESSAGE 

The SEND TASK MESSAGE primitive places a 64-character message into a 
PDOS system message buffer. The message is data-independent and is pointed 
to by address register Al. 

Data register DO specifies the destination of the message. If register DO is nega- 
tive, and there is no input port (phantom port), then the message is sent to the 
parent task. If there is a port, then the message is sent to itself and will appear at 
the next command line. Otherwise, register DO specifies the destination task. 

DO = -1 sends message to parent task 

The ability to direct a message to a parent task is very useful in background task- 
ing. An assembler need not know from which task it was spawned and can mere- 
ly direct any diagnostics to the parent task. 

If the destination task number equals -1, the task message is moved to the 
monitor input buffer and parsed as a command line. This feature is used by the 
CREATE TASK BLOCK primitive to spawn a new task. 

XGMP - Get Message Pointer 
XGTM - Get Task Message 
XKTM - Kill Task Message 
XSMP - Send Message Pointer 
XSTM - Send Task Message 

78 = Msg Buffer Full 


TERR 

LEA. L ERRM (PC) , Al 

/RETURN MESSAGE 


ST .B DO 

/SEND TO PARENT 


XSTM 

/SEND, ERROR? 


BNE.S ERROR 

/Y 


XEXT 

;n, quit 
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XSTP 

Set/Read Task Priority 

Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


C 

( o 


$A03C 

MPDOSK1 

XSTP 

<status error retum> 

In DO.B = Task # 

Dl.W = Task time/Task priority 
Out D1.B = Task priority (If D1.B was 0) 

If D0.B=-1, then select current task. IfDl.B=0, then read task priority intoDl.B. J 

The SET/READ TASK PRIORITY primitive either sets or reads the task 
priority selected by data register DO.B. If D1 .B is nonzero, then the priority is 
set. Otherwise, it is read and returned in Dl.B. If the upper byte of Dl.W is non- 
zero, then the corresponding task time slice is also set. 

XRTS - Read Task Status 

74 = Non-existent Task ^ 


MOVEQ.L 

#-l, DO 

/CURRENT TASK 

MOVEQ.L 

#0 , Dl 

/SET TO READ 

XSTP 


/READ TASK PRIORITY 

BNE.S 

ERROR 


MOVE . B 

D1,SV(A2) 

MOVEQ.L 

#-l,D0 

/SELECT CURRENT 

MOVEQ.L 

#100, Dl 

/SET TO WRITE 

XSTP 


/SET TASK PRIORITY 

BNE.S 

ERROR 
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XSUI 

Suspend Until Interrupt 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 


Possible 

Errors: 


$A01C 

MPDOSK1 

XSUI 

In Dl.W = EV1/EV2 

Out DO.L = Event 

The SUSPEND UNTIL INTERRUPT primitive suspends the user task until one 
of the events specified in data register D1 occurs. A task can suspend until an 
event sets (positive event) or until it clears (negative event). 

A task can suspend pending two different events. This is useful when combined 
with timeout counters to prevent system lockups. Data register DO.L is returned 
with the event which caused the task to be scheduled. 

A suspended task does not receive any CPU cycles until one of the event condi- 
tions is met When the event bit is set (or cleared), the task begins executing at 
the next instruction after the XSUI call. The task is scheduled during the normal 
swapping functions of PDOS according to its priority. Register D0.L is used to 
determined which event scheduled the task. 

A suspended task is indicated in the LIST TASK (LT) command under 
the“Event” parameter. Multiple events are separated by a slash. 

Events 64 through 128 toggle when they cause a task to move from the 
suspended state to the ready state. All others must be cleared by the event 
routine. 

If a locked task attempts to suspend itself, the call polls the events until a suc- 
cessful return condition is met. 

XDEV - Delay Set/Clear Event 
XDPE - Delay on Physical Event 
XSEF - Set Event Flag With Swap 
XSEV - Set Event Flag 
XSOE - Suspend on Physical Event 
XTEF - Test Event Flag 

None 


PDOS ASSEMBLY PRIMITIVES REFERENCE 


3 . 3 - 10/87 


135 


XSUI - Suspend Until Interrupt 






XSUP 

Enter Supervisor Mode 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A02C 

MPDOSK1 

XSUP 

None 

The ENTER SUPERVISOR MODE primitive moves your current task from 
user mode to supervisor mode. Take care not to crash the system since you 
would then be executing off the supervisor stack! 

This primitive enables programs to access I/O addresses and use privileged in- 
structions. 

Exit to user mode by executing a“ANDI.W #$DFFF,SR” instruction or the 
XUSP primitive. 

XLSR - Load Status Register 
XRSR - Read Status Register 
XUSP - Return To User Mode 

None 


PI 

* 

EQU $FFFFCE01 

;I/0 PORT 

OUT 

XSUP 


/ENTER SUPERVISOR 


MOVE . B 

DO , Pi 

/OUTPUT 


ANDI.W 

#$DFFF, 

SR /MOVE TO USER 


RTS 


/RETURN 
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XSWP 

Swap to Next Task 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

Possible 

Errors: 

Example: 


$A000 

MPDOSK1 

XSWP 

None 

The SWAP TO NEXT TASK primitive relinquishes control to the PDOS task 
scheduler. The next ready task with the highest priority begins executing. (This 
may be to the same task if there is only one task or the task is the highest 
priority ready task.) 

None 


LOOP 

TST.B TMEM 

/CONDITION MET? 


BEQ.S LOOP 02 

;Y 


XSWP 

;N, SWAP WHILE WAITING 

■k 

BRA . S LOOP 


LOOP 02 

.... 
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XSZF 


Get Disk Size 


Value: 

Module: 


$A0B6 

MPDOSF 


Syntax: 

Registers: 


Description: 


Possible 

Errors: 


XSZF 

<status error retum> 

In D0.B = Disk number 
Out D5.L = Directory size/# of files 
D6.L = Allotted/Used 
D7.L = Largest/Free 

The GET DISK SIZE primitive returns disk size parameters in data registers D5 
through D7. Data register D5 returns the number of currently defined files in the 
low word along with the maximum number of files available in the directory in 
the high word. 

The low order 16 bits of data register D6 (0-15) returns the total number of sec- 
tors used by all files. The high order 16 bits of D6 (16-3 1) returns the number of 
sectors allocated for file storage. 

The low order 16 bits of data register D7 (0-15) is calculated from the disk sec- 
tor bit map and reflects the number of sectors available for file allocation. The 
high order 16 bits of D7 (16-31) is returned with the size of the largest block of 
contiguous sectors. This is useful in defining large files. 

68 = Not PDOS Disk 
Disk errors 
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XSZF - Get Disk Size 


Example: 



CLR.L 

DO 

/SELECT DISK #0 


XSZF 


/GET DISK SIZE 


BNE.S 

ERROR 

/ERROR 


CLR.L 

D1 



MOVE . W 

D7, D1 



XCBM 

SPMl 

/OUTPUT FREE 


XPLC 


/PRINT 


SWAP 

D7 



MOVE . W 

D7 , Dl 



XCBM 

SPM2 

/OUTPUT LARGEST 


XPLC 


/CONTIGUOUS BLOCK 


XTAB 

20 

/TAB TO COLUMN 20 


MOVE . W 

D6, Dl 



XCBM 

SPM3 

/OUTPUT USED 


XPLC 


/PRINT 


SWAP 

D6 



MOVE . W 

D6, Dl 



XCBM 

SPM4 

/OUTPUT ALLOCATED 


XPLC 


/PRINT 

•k 

XEXT 



SPMl 

DC . B 

$0A, $0D, 

' FREE : ' , 0 

SPM2 

DC . B 

* ' 0 
r t u 


SPM3 

DC . B 

'USED: ' , 

0 

SPM4 

DC . B 

'/' ,0 



EVEN 
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XTAB 

Tab to Column 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

Possible 

Errors: 

Example: 


$A090 
MPDOSK2 
XTAB <column> 

None 

The TAB TO COLUMN primitive positions the cursor to the column specified 
by the number following the call. Spaces are output until the column counter is 
greater than or equal to the parameter. 

The first print column is zero. At least one space character will always be output. 
None 


XPMC 

MESl 

; OUTPUT HEADER 

XTAB 

30 

; MOVE TO COLUMN 30 
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XTEF 

Test Event Flag 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A01A 

MPDOSK1 

XTEF 

<status retum> 

In Dl.B = Event number (+=1-127, -=128) 

Out SR = NE....Event set (1) 

EQ....Event clear (0) 

The TEST EVENT FLAG primitive sets the 68000 status word EQUAL or 
NOT-EQUAL depending upon the zero or nonzero state of the specified event 
flag. The flag is not altered by this primitive. 

The event number is specified in data register D1 and is modulo 128. Event 128 
is local to each task. 

XDEV - Delay Set/Clear Event 
XSEF - Set Event Flag With Swap 
XSEV - Set Event Flag 
XSUI - Suspend Until Interrupt 

None 


MOVEQ.L #30, Dl 

/EVENT 30 

XTEF 

/TEST EVENT FLAG 

BNE.S EVENT 

/EVENT = .TRUE. 

— 

/EVENT = .FALSE. 
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XTLP 

Translate Logical to Physical Event 


C 

< 



Value: $A110 

Module: MPDOSKl 

Syntax: XTLP 

Registers: In Dl.W = Event LB.JEvent O.B 

Out AO = Event 0 address (0=no event 0 to suspend on) 

A1 = Event 1 address (0=no event I to suspend on) 

D1 = Event 1 Descriptor. w,E vent 0 Descriptor.w 

Description: XTLP takes a PDOS logical event number and translates the event into a physi- 

cal event. This call is used when a program needs to suspend on both a logical 
and a physical event. The logical event is first translated; then the XSOE call is 
used to suspend it. 

A PDOS logical event is one of the 128 events maintained by the PDOS system 
inSYRAM. 



The event descriptor is a 16-bit word that defines both the bit number at the 
specified A0,A1 address and the action to take on the bit. The following bits are 
defined: 



Since the bit number is specified in the lower three bits of the descriptor, you 
may use the descriptor with the 680x0 BTST, BCLR, BSET instructions. You 
may also use the following physical manipulation calls which are macros for 
single assembly instructions. They are optimal as long as the values have al- 
ready been placed in the correct registers. Physical events may need 
synchronization via the XTAS macro to avoid corruption. The macros are 
defined in the file PESMACS:SR. 
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XTLP - Translate Logical to Physical Event 


See Also: 
Example: 


XTST - Test Physical Event (replaces BTST D1,(A0)) 

XSET - Test and Set Physical Event (replaces BSET D1,(A0)) 

XCLR - Test and Clear Physical Event (replaces BCLR D1,(A0)) 

Input: Dl.W- Event descriptor 

AO - Event address 
Output: None 

Status: EQ- the bit was clear (0) 

NE -the bit was set (1) 

The bottom three bits are evaluated as a bit number. The bit at the address is set 
and the previous value is returned in the Z bit of the status register. 

XT AS - Test and Set Physical Event (Bit 7 atomic) 

This macro replaces TAS (AO). The seventh bit at the address is set and the pre- 
vious value is returned in the N bit of the status register. 

Input: AO - Event address 

Output: None 

Status: EQ - the bit was clear (0) 

NE - the bit was set (1) 

XDPE - Delay On Physical Event 
XSOE - Suspend On Physical Event 


MOVE . L 

#128, D1 

; GET LOGICAL EVENT 

MOVE . L 

#100, DO 

; SET TIMEOUT 

XDEV 


; START TIMER 

LSL.W 

#8, D1 

; MAKE EVENT 1 

XTLP 


; TRANSLATE TO PHYSICAL 

MOVE . W 

#$8080, D1 

; BIT 0 SET AND TOGGLE 

LEA. L 

PEV (PC) ,.A0 

; GET PEV ADDRESS 

XSOE 


; SUSPEND UNTIL BIT 0 OF 

. . . 


;PEV IS A 1 

PEV DC . W 

0 
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XUAD 


Unpack ASCII Date 


Value: 

Module: 

Syntax: 

Registers: 


Description: 


See Also: 


Possible 

Errors: 


$A036 

MPDOSK3 

XUAD 

In Dl.W = (Year*16+Month)*32+Day 

(YYYY YYYM MMMD DDDD) 

Out (Al) = ’DY-MON-YR’<null> 

(Outputs ??? for invalid months) 

The UNPACK ASCII DATE primitive returns a pointer in address register Al 
to an ASCH date string. Data register Dl.W contains the binary date 
[(Year*16+Month)*32+DayJ. The format of the string is more exact than simple 
numbers separated by slashes. 

XUAD does not check for a valid date and hence, strange strings could result. In- 
valid months are replaced by“???.” 

XFTD - Fix Time and Date 
XPAD- Pack ASCII Date 
XRDT - Read Date 
XRTM - Read Time 
XUDT - Unpack Date 
XUTM - Unpack Time 

None 
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XUDT 

Unpack Date 


Value: 

Module: 

Syntax: 

Registers: 

Description: 
See Also: 


Possible 

Errors: 

Example: 


$A060 

MPDOSK3 

XUDT 

In D1.W = (Year* 16 + Month) *32 + Day 
Out (Al) = ’MN/DY/YR’<null> 

The UNPACK DATE primitive converts a one- word encoded date into an eight- 
character string terminated by a null (nine characters total). Data register D1 con- 
tains the encoded date and returns with a pointer to the formatted string in 
address register Al. The output of the FIX TIME & DATE (XFTD) primitive is 
valid input to this primitive. 

XFTD - Fix Time and Date 
XPAD- Pack ASCII Date 
XRDT - Read Date 
XRTM - Read Time 
XUAD - Unpack ASCII Date 
XUTM - Unpack Time 

None 


XFTD 

;FIX TIME & DATE 

XUDT 

/UNPACK DATE 

XPLC 

/PRINT 'MN/DY/YR' 

— 
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XULF 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


Unlock FHe 


$A0EE 

MPDOSF 

XULF 

<status error retum> 

In Dl.W = File ID 

The UNLOCK FILE primitive unlocks a locked file for access by any other 
task. The file is specified by the file ID in data register D1 . 

XLKF- Lock File 

52 = File Not Open 
59 = Bad File Slot 
Disk errors 


MOVE . W 

D5,D1 

;GET FILE ID 

XULF 


; UNLOCK FILE 

BNE.S 

ERROR 
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XULT 

Unlock Task 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A016 

MPDOSK1 

XULT 

None 

The UNLOCK TASK primitive unlocks the current task by clearing the swap 
lock variable in system RAM. This allows other tasks to be scheduled and 
receive CPU time. 

XLKT- Lock Task 

None 


* 

XLKT 

; LOCK TASK WHILE WAITING 

LOOP 

TST.B LMEM 

/CONDITION MET? 


BNE.S LOOP 

;N, WAIT 


CLR.B OMEM 

;Y, RESET 


XULT 

/UNLOCK TASK NOW 
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XUSP 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


Return to User Mode 


$A008 

MPDOSK1 

XUSP 

None 

The RETURN TO USER MODE primitive moves your current task from super- 
visor mode to user mode. Executing an “ANDI.W #$DFFF,SR” instruction also 
returns you to user mode, but must be executed in supervisor mode. The XUSP 
primitive can be executed in either mode. 

XLSR - Load Status Register 
XSUP - Enter Supervisor Mode 

None 


PI 

* 

EQU $FFFFCE01 

; I/O PORT 

OUT 

XSUP 

; ENTER SUPERVISOR 


MOVE . B DO, PI 

; OUTPUT 


XUSP 

/RETURN TO USER 


RTS 

/RETURN 
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XUTM 

Unpack Time 


Value: 

Module: 

Syntax: 

Registers: 

Description: 
See Also: 


Possible 

Errors: 

Example: 


$A062 

MPDOSK3 

XUTM 

In Dl.W = HOUR*256+MINUTE 

(HHHH HHHH MMMM MMMM) 

Out (Al) = HR:MN<null> 

The UNPACK TIME primitive converts a one word encoded date into a five 
character string terminated by a null (six characters total). Data register D1 con- 
tains the encoded time and returns a pointer to the formatted string in address 
register Al. The output of the FIX TIME & DATE (XFTD) primitive is valid 
input to this primitive. 

XFTD - Fix Time and Date 
XPAD- Pack ASCII Date 
XRDT - Read Date 
XRTM - Read Time 
XU AD - Unpack ASCII Date 
XUDT - Unpack Date 

None 



•O' 


XFTD 

;GET SYSTEM 

TIME 

MOVE D0,D1 



XUTM 

; CONVERT TO 

STRING 

XPLC 

; PRINT TIME 


— 




f 


c 
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XVEC 

Set/Read Exception Vector 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 




PDOS ASSEMBLY PRIMITIVES 


$A116 

MPDOSK1 

XVEC 

In DO.W = Exception number (#2-255) 

(AO) = New exception service routine (0=read only) 

Out (AO) = Old service routine 

XVEC sets and/or reads the execution vector for the system. The old service 
routine address is returned so that you may change a routine and then restore the 
former routine under program control. 

XDTV - Define Trap Vectors 

None 


START 

MOVEQ.L 

#5 , DO 

; ZERO DIVIDE ERROR VECTOR 1 


LEA. L 

ZDIV (PC) ,A0 

;GET NEW SYSTEM ZERO DIV 

VEC 


XVEC 


; SET A RETURN OLD VEC IN 

AO 


DIVU.W 

# 0 , DO 

/ZERO DIV ERROR 


* 

XEXT 


/WILL EXECUTE AFTER ZDIV 

EXCEP 

* ZDIV 

* 

EXCEPTION HANDLER 



ZDIV 

XPMC 

Ml 

/ZERO DIV EXCEPTION 



MOVEQ . L 

#5, DO 




XVEC 


/RESET TO OLD HANDLER 


* 

RTE 


/RETURN FROM EXCEPTION 


Ml 

* 

DC . B $0A, $0D r ' ZERO DIVIDE EXCEPTION' , 0 



END START 




Refer to the Installation and Systems Management guide for a list of user vec- 
tors that are implemented on your hardware. Changing vectors that are in use 
may cause the system to crash. 
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XWBF 

Write Bytes to File 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A0F0 

MPDOSF 

XWBF 

<status error retum> 

In D0.L = Byte count - must be positive 
Dl.W = FileID 
(A2) = Buffer address 

The WRITE BYTES TO FILE primitive writes from a memory buffer, pointed 
to by address register A2, to a disk file specified by the file ID in register Dl. 
Register DO specifies the number of bytes to be written. If the channel buffer 
has been rolled to disk, the least-used buffer is freed and the buffer is restored to 
memory. The file slot ID is placed on the top of the last-access queue. 

The write is independent of the data content. The buffer pointer in register A2 
may be on any byte boundary. The write operation is not terminated with a null 
character. 

A byte count of zero in register DO results in no data being written to the file. 

If it is necessary for the file to be extended, PDOS first uses sectors already 
linked to the file. If a null or end link is found, a new sector obtained from the 
disk sector bit map is linked to the end of the file. If this makes the file non-con- 
tiguous, it is retyped as a non-contiguous file. 

XRBF - Read Bytes From File 
XRLF - Read Line From File 
XWLF - Write Line To File 

52 = File Not Open 

55 = Too Few Contiguous Sectors 

58 = File Delete or Write Protected 

59 = Bad File Slot 

60 = File Space Full 
Disk errors 


MOVE . L 

#252, DO 

/WRITE FULL SECTOR 

MOVE . W 

D5, Dl 

/GET ID 

LEA.L 

BF (PC) ,A2 

/GET BUFFER ADDRESS 

XWBF 


/WRITE TO FILE 

BNE.S 

ERROR 


BF DS.B 

256 

/SECTOR BUFFER 
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XWDT 


Write Date 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


$A064 

MPDOSK3 

XWDT 

In D0.B = Month (1-12) 

D1.B = Day (1-31) 

D2.B = Year (0-99) 

The WRITE DATE primitive sets the system date counters. Register DO 
specifies the month and ranges from 1 to 12. Register D1 specifies the day of 
month and ranges from 1 to 31. Register D2 is the last 2 digits of the year. 

No check is made for a valid date. 

None 


MOVEQ.L #12, DO ;SET DATE TO 12/25/80 

MOVEQ.L #25, D1 

MOVEQ.L #83, D2 

XWDT ; SET DATE 
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XWFA 

Write File Attributes 


Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 


$A0F2 

MPDOSF 

XWFA 

<status error retum> 

In (Al) = File name 

(A2) = ASCII file attributes 

(A2)=0 clears all attributes. 

The WRITE FILE ATTRIBUTES primitive sets the attributes of the file 
specified by the file name pointed to by register Al. Register A2 points to an 
ASCII string containing the new file attributes followed by a null character. The 
format is: 



If register A2 points to a zero byte, then all flags, with the exception of the con- 
tiguous flag, are cleared. 

XCFA - Close File With Attribute 
XRFA - Read File Attributes 
XWFP - Write File Parameters 

50 = Bad File Name 

53 = File Not Defined 

54 = Bad File Attribute 
Disk errors 
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XWFP 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


Write File Parameters 


$A0FC 

MPDOSF 

XWFP 

<status error retum> 

In (Al) = File name 

DO.L = Sector index of EOF/By tes in last sector 

D1.L = Time/Date created 

D2.L = Time/Date last accessed 

D3.W = ORed status (less contiguous bit) 

The WRITE FILE PARAMETERS primitive updates the end-of-file and date 
parameters of the file specified by the name pointed to by address register Al in 
the disk directory. 

XCFA - Close File With Attribute 
XRFA - Read File Attributes 
XWFA - Write File Attributes 

50 = Bad File Name 
53 = File Not Defined 
Disk errors 



LEA. L 

FN (PC) ,A1 

;GET FILE NAME 


XRFA 


; READ FILE ATTRIBUTES 


BNE.S 

ERROR 

/ERROR 


ADDA. W 

#20, A2 

/POINT TO 


MOVEM.L 

(A2) , D5-D7 

/SAVE PARAMETERS 


MOVE . L 

D5 , DO 



MOVE . L 

D6,D1 



MOVE . L 

D7,D2 



LEA. L 

FN (PC) , Al 

/GET FILE NAME 


XWFP 

BNE.S 

ERROR 

/UPDATE FILE PARAMETERS 

FN 

DC . B 
EVEN 

'DATA: BIN' 

,0 
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XWLF 


Write Line to File 

Value: 

Module: 

Syntax: 

Registers: 

Description: 


See Also: 

Possible 

Errors: 

Example: 



$A0F4 

MPDOSF 

XWLF 

<status error retum> 

In Dl.W = File ID 

(A2) = Buffer address 

The WRITE LINE TO FILE primitive writes a line delimited by a null character 
to the disk file specified by the file ID in register Dl. Address register A2 points 
to the string to be written. If the channel buffer has been rolled to disk, the least- 
used buffer is freed and the buffer is restored to memory. The file slot ID is 
placed on the top of the last-access queue. 

The write line primitive is independent of the data content, with the exception 
that a null character terminates the string. The buffer pointer in register A2 may 
be on any byte boundary. A single write operation continues until a null charac- 
ter is found. 

If it is necessary for the file to be extended, PDOS first uses sectors already 
linked to the file. If a null link is found, a new sector obtained from the disk sec- 
tor bit map is linked to the end of the file. If this makes the file non-contiguous, 
it is retyped as a non-contiguous file. 

XRBF - Read Bytes From File 
XRLF - Read Line From File 
XWBF - Write Bytes To File 

52 = File Not Open 

55 = Too Few Contiguous Sectors 

58 = File Writ/Del Prot 

59 = Bad File Slot 

60 = File Space Full 
Disk errors 



MOVE . W 

D5,D1 

;GET FILE ID 


LEA. L 

LB (PC) , A2 

;GET LINE 


XWLF 


/WRITE LINE 


BNE.S 

ERROR 

/ERROR 

LB 

DC .B 

$0A, $0D, ' 

NO DIAGNOSTICS', 0 


EVEN 




r ;) 
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XWSE 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


Write Sector 


$A0C6 

MPDOSF 

XWSE 

<status error retum> 

In DO.B = Disk number 
Dl.W = Sector number 
(A2) = Buffer address 

The WRITE SECTOR primitive is a system-defined, hardware-dependent 
program which writes 256 bytes of data from a buffer, pointed to by address 
register A2, to the logical sector and disk device specified by data registers D1 
and DO respectively. 

BIOS in PDOS Developer’s Reference Manual 
XISE - Initialize Sector 
XRSE - Read Sector 
XRSZ - Read Sector Zero 

Disk errors 



CLR.L 

DO 

/WRITE TO DISK #0 


MOVEQ . L 

#10, D2 

/WRITE TO SECTOR #10 


LEA. L 

BUF (PC) ,A2 

/GET BUFFER ADDRESS 


XWSE 


/WRITE 


BNE.S 

ERROR 

/PROBLEM 

BUF 

DS.B 

256 

/DATA BUFFER 
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XWTM 

Write Time 




Value: 

Module: 

Syntax: 

Registers: 

Description: 


Possible 

Errors: 

Example: 


$A066 

MPDOSK3 

XWTM 

In D0.B = Hours (0-23) 

D1.B = Minutes (0-59) 

D2.B = Seconds (0-60) 

The WRITE TIME primitive sets the system clock time. Register DO specifies 
the hour and ranges from 0 to 23. Register D1 specifies the minutes and register 
D2, the seconds. The latter two range from 0 to 59. 

There is no check made for a valid time. 

None 


MOVEQ.L #23, DO ;SET TIME TO 23:59:59 
MOVEQ.L #59, D1 
MOVEQ.L #59, D2 

XWTM ; SET SYSTEM TIME 


Vv 
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XZFL 

Zero File 


Value: 

Module: 

Syntax: 

Registers: 

Description: 

See Also: 

Possible 

Errors: 

Example: 


$A0F6 

MPDOSF 

XZFL 

<status error retum> 

In (Al) = File name 

The ZERO FILE primitive clears a file of any data. If the file is defined, then the 
end-of-file marker is placed at the beginning of the file. If the file is not defined, 
it is defined with no data. 

XDFL - Define File 
XDLF- Delete File 

50 = Bad File Name 
61 = File Already Open 
68 = Not PDOS Disk 
Disk errors 



LEA. L 

FN (PC ) , Al ;POINT TO FILE 


XZFL 

; ZERO FILE 


BNE . 

.S ERROR 

FN 

DC . B 
EVEN 

' FILE : SR' , 0 
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Index 


68881 

save enable, 11 


Altered 

file A. check, 51 
Append 
file, 12 
ASCII 

convert A. to binary, 25 
pack A. date, 84 
unpack A. date, 145 
Attributes 

read file A., 108 
write file A., 154 


Baud 

console port, 13 
Binary 

convert ASCII to B., 25 
convert B. to decimal, 20 
convert B. to hex, 21 
convert B. to hex in buffer, 29 
Break 

check for B., 23 
check for B. character, 19 
Buffer 

flush B., 51 
get line in B., 59 
get line in monitor B., 61 
get line in user B., 62 
place character in port B., 89 
push command to B., 86 
put B. to console, 85 
Build 

file directory list, 15 
Bytes 

read B. from file, 101 
write B. to file, 152 


Carriage Return 

put CR to console, 88 
Chain 
file, 28 


Character 
get C., 58 

get C. conditional, 55 - 56 
get port C., 57 
place C. in port buffer, 89 
put C. raw, 90 
put C. to console, 87 
Check 

for break character, 19 
for break or pause, 23 
for file altered, 51 
Clear 

delay C. event, 37 
file, 159 
screen, 32 
Close 
file, 31 

file with attribute, 26 
Column 

tab to C., 141 
Command 

push C. to buffer, 86 
Conditional 

get character, 55 
get character G, 56 
Console 

baud C. port, 13 
I/O calls, 6 
put buffer to C., 85 
put character to C., 87 
put CRLF to console, 88 
put data to C., 91 
put encoded line to C., 92 
put encoded message to C., 94 
put line to C., 95 
put message to C., 96 
put space to C., 100 
reset C. inputs, 102 
Constants 
system C., 2 
Convert 

ASCII to binary, 25 
binary to decimal, 20 
binary to hex, 21 
binary to hex in buffer, 29 
to decimal in buffer, 24 
to decimal with message, 22 
Copy 
file, 33 
Create 

task block, 34 
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Cursor 

position C., 97 

read port C. position, 103 


D 


Data 

conversion calls, 6 
put D. to console, 91 
Date 

fix D„ 53 
pack ASCII D„ 84 
readD., 107 
unpack ASCII D., 145 
unpack D., 146 
write D., 153 
Debug 
call, 17 
Decimal 

convert binary to D., 20 
convert to D. in buffer, 24 
convert to D. with message, 22 
Define 
file, 38 

trap vectors, 44 
Delay 

on physical event, 42 
set/clear event, 37 
Delete 
file, 40 
Directory 

build file D. list, 15 
list file D., 81 

read D. entry by name, 106 
read next D. entry, 104 
Disk 

' access calls, 8 
get D. size, 139 
reset D., 117 
Dump 

memory from stack, 41 
registers, 105 


E 


Encoded 

putE. line to console, 92 
putE. message to console, 94 
Enter 

supervisor mode, 137 
Error 

load E. register, 75 
return E. DO to monitor, 46 
return status E., 4 
trapping, 4 


Errors 

PDOS E. listing, 9 
Event 

delay on physical E., 42 
delay set/clear E., 37 
suspend on physical E., 129 
translate logical E. to physical E., 143 
Event Flag 
setE.F., 126 
setE.F. with swap, 124 
testE.F., 142 
Exception 

set/read E. vector, 151 
Execute 

PDOS call D7.W, 47 
Exit 

to monitor, 49 

to monitor with command, 50 
External 

PDOS symbols, 2 


F 


altered check, 51 

append F., 12 

build F. directory list, 15 

chain F., 28 

close, 31 

close F. with attribute, 26 

copy, 33 

define F., 38 

delete, 40 

listF. directory, 81 

load F., 73 

lock F., 78 

look for name in file slots, 76 

management calls, 7 

open random F., 1 13 

open random read only F., 1 12 

open sequential F., 130 

open shared random F., 82 

position F., 99 

read bytes from F., 101 

read F. attributes, 108 

read F. position, 109 

read line from F., 1 10 

rename F., Ill 

rewind F., 123 

support calls, 7 

unlock, 147 

write bytes to F., 152 

write F. attributes, 154 

write F. parameters, 155 

write line to F., 156 
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zeroF., 159 
Filename 
fix F., 52 
Fix 

filename, 52 
time and date, 53 
Flag 

set port F., 132 
Flush 

buffers, 51 
Format 

assembly F., 3 
of source files, 3 
Free 

user memory, 54 

G 

Get 

character, 58 

character conditional, 55 - 56 

disk size, 139 

line in buffer, 59 

line in monitor buffer, 61 

line in user buffer, 62 

memory limits, 64 

message pointer, 65 

next parameter, 66 

port character, 57 

task message, 68 

user memory, 69 

H 

Hex 

convert binary to H., 21 
convert binary to H. in buffer, 29 


I/O 

console I/O calls, 6 
Initialize 
sector, 70 
Input 

reset console I., 102 
Interrupt 

return from I., 119 
suspend until I., 135 

K 


Limits 

get memory L., 64 
Line 

get L. in buffer, 59 
get L. in monitor buffer, 61 
get L. in user buffer, 62 
put encoded L. to console, 92 
put L. to console, 95 
read L. from file, 110 
write L. to file, 156 
Line Feed 

put LF to console, 88 
List 

file directory, 81 
Load 

error register, 75 
file, 73 

status register, 80 
Lock 
file, 78 
task, 79 
Logical 

translate L. event to physical, 143 
Look 

for name in file slots, 76 

M 

Manual 

conventions of this M., 1 
Memory 

dump M. from stack, 41 
free user M., 54 
get M. limits, 64 
get user M., 69 
Message 

get M. pointer, 65 
get task M., 68 
kill task M., 72 
put encoded M. to console, 94 
put M. to console, 96 
send M. pointer, 128 
send task M., 133 
Monitor 

exit to M., 49 

exit to M. with command, 50 
get line in M. buffer, 61 

N 


Kill Name 

task, 7 1 look for N. in file slots, 76 

task message, 72 
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Next 

get N. parameter, 66 


Open 

random file, 113 
random read only file, 1 12 
sequential file, 130 
shared random file, 82 


Pack 

ASCII date, 84 
Parameter 

get next P., 66 
Parameters 

write file P., 155 
Pause 

check for P., 23 
Physical 

translate logical to P. event, 143 
Pointer 

get message P., 65 
send message P., 128 
Port 

baud console P., 13 
get P. character, 57 
place character in P. buffer, 89 
read P. cursor position, 103 
readP. status, 114 
set P. flag, 132 
Position 
cursor, 97 
file, 99 

read file P., 109 
Priority 

set/read task P., 134 
Push 

command to buffer, 86 
Put 

buffer to console, 85 
character raw, 90 
character to console, 87 
CRLF to console, 88 
data to console, 91 
encoded line to console, 92 
encoded message to console, 94 
line to console, 95 
message to console, 96 
space to console, 100 
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Random 

openR. file, 113 
open R. read only file, 112 
open shared R. file, 82 
Raw 

put character R., 90 
Read 

bytes from file, 101 
date, 107 

directory entry by name, 106 

exception vector, 151 

file attributes, 108 

file position, 109 

line from file, 1 10 

next directory entry, 104 

open random R. only file, 1 12 

port cursor position, 103 

port status, 114 

sector, 115 

sector zero, 118 

status register, 1 16 

task priority, 134 

task status, 122 

time, 120 

time parameters, 121 
Register 

load error R., 75 
load status R., 80 
read status R., 116 
usage, 1 
Registers 

dump R., 105 
using assembly R., 4 
Rename 
file. 111 
Reset 

console inputs, 102 
disk, 117 
Return 

error DO to monitor, 46 
from interrupt, 1 19 
to user mode, 149 
Rewind 
file, 123 


S 


Save 

68881 enable, 11 
Screen 
clear, 32 
Sector 

initialize S., 70 
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readS., 115 
readS. zero, 118 
writeS., 157 
Send 

message pointer, 128 
task message, 133 
Sequential 

open S. file, 130 
Set 

delay S. event, 37 
event flag, 126 
event flag with swap, 124 
exception vector, 151 
port flag, 132 
task priority, 134 
Shared 

open S. random file, 82 
Size 

get disk S., 139 
Slot 

look for name in file S., 76 
Source 

file format, 3 
Space 

put S. to console, 100 
Stack 

dump memory from S., 41 
Status 

load S. register, 80 
read ports., 114 
read S. register, 116 
read task S., 122 
registers, 4 
Supervisor 

enter S. mode, 137 
Suspend 

on physical event, 129 
until interrupt, 135 
Swap 

to next task, 138 
System 
calls, 5 

support calls, 6 
variables, 2 


Tab 

to column, 141 
Task 

create T. block, 34 
get T. message, 68 
kill T., 71 
kill T. message, 72 
lock T., 79 


read T. status, 122 
send T. message, 133 
set/read T. priority, 134 
swap to next T., 138 
unlock T., 148 
Test 

event flag, 142 
Time 
fix T„ 53 
readT., 120 
read T. parameters, 121 
unpack T., 150 
write T., 158 
Translate 

logical to physical event, 143 
Trap 

define T. vectors, 44 


Unlock 
file, 147 
task, 148 
Unpack 

ASCII date, 145 
date, 146 
time, 150 
User 

free U. memory, 54 
get line in U. buffer, 62 
get U. memory, 69 
return to U. mode, 149 


Variables 
system V., 2 
Vector 

set/read exception V., 151 
Vectors 

define trap V., 44 

W 

Write 

bytes to file, 152 
date, 153 

file attributes, 154 
file parameters, 155 
line to file, 156 
sector, 157 
time, 158 
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X881.il 
XAPF, 12 
XBCP, 13 
XBFL, 15 
XBUG, 17 

XCBC, 19 

XCBD. 20 
XCBH.21 
XCBM.22 
XCBP, 23 
XCBX, 24 
XCDB, 25 
XCFA.26 
XCHF, 28 
XCHX.29 
XCLF.31 
XCLS, 32 
XCPY, 33 
XCTB, 34 
XDEV, 37 
XDFL, 38 
XDLF.40 
XDMP.41 
XDPE.42 
XDTV.44 
XERR.46 
XEXC.47 
XEXT.49 
XEXZ, 50 
XFAC, 51 
XFBF, 51 
XFFN, 52 
XFTD.53 
XFUM.54 

XGCB, 55 

XGCC, 56 
XGCP, 57 
XGCR, 58 
XGLB.59 
XGLM.61 

XGLU. 62 

XGML. 64 
XGMP.65 
XGNP, 66 
XGTM.68 
XGUM, 69 
XISE.70 
XKTB.71 
XKTM.72 
XLDF.73 
XLER.75 
XLFN.76 
XLKF.78 


XLKT.79 
XLSR, 80 
XLST, 81 
XNOP, 82 
XPAD.84 
XPBC, 85 

XPCB. 86 

XPCC, 87 

XPCL, 88 
XPCP, 89 
XPCR.90 

XPDC. 91 

XPEL. 92 

XPEM. 94 
XPLC, 95 
XPMC.96 
XPSC.97 
XPSF.99 
XPSP, 100 
XRBF, 101 

XRCN, 102 
XRCP, 103 

XRDE, 104 

XRDM, 105 

XRDN, 105 

XRDT, 107 

XRFA, 108 
XRFP, 109 
XRLF.110 
XRNF.lll 

XROO, 112 

XROP, 113 
XRPS.114 
XRSE.115 
XRSR.116 
XRST, 117 
XRSZ, 118 
XRTE.119 
XRTM, 120 
XRTP, 121 
XRTS, 122 
XRWF, 123 
XSEF, 124 
XSEV, 126 
XSMP, 128 
XSOE, 129 
XSOP, 130 
XSPF, 132 
XSTM, 133 
XSTP, 134 
XSUI, 135 
XSUP, 137 
XSWP, 138 
XSZF, 139 
XTAB, 141 
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XTEF.142 
XTLP, 143 
XU AD, 145 
XUDT, 146 
XULF, 147 
XULT, 148 
XUSP, 149 
XUTM, 150 
XVEC, 151 
XWBF, 152 

XWDT, 153 

XWFA, 154 
XWFP, 155 
XWLF, 156 
XWSE, 157 
XWTM, 158 
XZFL, 159 
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Zero 
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